Find all the words appearing in red

[cyberdude]

Hi,

I would like to write a Word VBA macro to find all the words appearing
in red. Here is part of the code:

Sub test1()

Selection.Find.Font.Color = wdColorRed
Selection.Find.Execute
MsgBox (Selection.Text)

End Sub

But it can't find ALL such words but only the first encounter of such
a word. Can you tell me the rest of the code that makes it search
throughout the document? Thanks.

Mike

 

[Tony Strazzeri]

Hi Dude! (couln't resist that <g>)

Try the following .

Cheers!
TonyS.

With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = True
.Font.Color = wdColorRed
End With


While Selection.Find.Execute
MsgBox (Selection.Text)
Wend