Words Property Example

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