>i have an application which keeps tack of documents among other things.
>one of the routine queries the database for documents containing a list of word like 'finance' and 'meltdown' and it will return a handfull of .docs with those words in it in a grid.
>the use can select a line in the grid and the program will open the word doc in MSWord.
>
>now it woud be helpful if alloccasions of the words 'finance' and 'meltdown' would be highlited.
>
>this code:
> .Selection.Find.ClearFormatting
> With .Selection.Find
> .Text = "of"
> .Replacement.Text = ""
> .Forward = True
> .Wrap = wdFindContinue
> .Format = False
> .MatchCase = False
> .MatchWholeWord = False
> .MatchWildcards = False
> .MatchSoundsLike = False
> .MatchAllWordForms = True
> EndWith
> .Selection.Find.Execute
>
>does it one at a time. Is there a way to highlite ALL?
>
>
>Thanks
>
>
>Peter

lnOldHLColor = .Options.DefaultHighlightColorIndex
.Options.DefaultHighlightColorIndex= 7  && wdYellow

.Selection.Find.Execute(,,,,,,,,,,2)

.Options.DefaultHighlightColorIndex = m.lnOldHLColor

Cetin