Свойство Range.Words (Word)
Возвращает коллекцию Words , представляющую все слова в диапазоне. Только для чтения.
выражение. Words
выражение: переменная, представляющая объект Range.
Знаки препинания и абзаца в документе включаются в коллекцию Слов .
Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.
В этом примере отображается количество слов в выделенном фрагменте. В число включаются знаки абзацев, частичные слова и знаки препинания.
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 и обратная связь.