VBA: как работать со всем текстом в Word'e?

[Sambotey]

Чтобы действие макроса в Word’e распространялось на весь выделенный текст, можно использовать следующую конструкцию (из хелпа):

Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
If aWord.Text = "Franklin " Then aWord.Delete
Next aWord

А как сделать так, чтобы действие макроса распространялось на весь текст документа? WholeStory желательно не использовать, потому что макрос должен перебирать все слова текста для их анализа, а с WholeStory, по-моему, это будет труднее...

[LightImage]

Dim myRange As Range, aWord As Range
Set myRange = ActiveDocument.Content
For Each aWord In myRange.Words
 If aWord.Text = "Franklin " Then aWord.Delete
Next