Hi dsc

The following will find red "the"s and replace them with blue "xxx"s. If you
don't need to replace, then leave out the whole With .Replacement .... End
With section. And, just .Execute without .Execute Replace:=wdReplaceAll.

Sub FindRedThe()

   With Selection.Find
       'Clear out old stuff
       .ClearFormatting

       'Set the search string
       .Text = "the"

       'Go forward from the selection and
       'then wrap throughout the document
       .Forward = True
       .Wrap = wdFindContinue

       'Require Word to search for formatting
       .Format = True

       'Set the format to find
       .Font.Color = wdColorRed

       'Set the replacement requirements
        With .Replacement
           .ClearFormatting
           .Text = "xxx"
           .Font.Color = wdColorBlue
       End With

       'Go!
       .Execute Replace:=wdReplaceAll
   End With

End Sub

Hope this helps.

Shauna Kelly.  Microsoft MVP.
http://www.shaunakelly.com/word