Range.Words プロパティ (Word)
範囲内のすべての単語を表す Words コレクションを取得します。 読み取り専用です。
expression. Words
expression は Range オブジェクトを表す変数です。
Words コレクションには、文書内の句読点および段落記号が含まれます。
コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。
次の使用例は、選択部分の単語数を表示します。 段落記号、単語の一部だけが選択されているもの、区切り記号もカウントされます。
MsgBox "There are " & Selection.Words.Count & " words."
次の使用例は、myRange (作業中の文書の先頭から選択部分の最後まで) で、"Franklin " (直後のスペースも含む) という単語が見つかったら削除します。
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
If aWord.Text = "Franklin " Then aWord.Delete
Next aWord
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。