Range.Words Property (Word)
Office 2013
Returns a Words collection that represents all the words in a range. Read-only.
Punctuation and paragraph marks in a document are included in the Words collection.
For information about returning a single member of a collection, see Returning an Object from a Collection.
This example displays the number of words in the selection. Paragraphs marks, partial words, and punctuation are included in the count.
MsgBox "There are " & Selection.Words.Count & " words."
This example steps through the words in myRange (which spans from the beginning of the active document to the end of the selection) and deletes the word "Franklin" (including the trailing space) wherever it occurs in the range.
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End) For Each aWord In myRange.Words If aWord.Text = "Franklin " Then aWord.Delete Next aWord
