Hi Peter,
Sorry I didn't understand.

You can avoid the dialog using DisplayAlerts = 0 (or .F.) and Close(0) - or another value (wdSave,wdPrompt,wdDonotsave as I remember).

PS: No wonder, everybody loves Istanbul:)
Cetin

>Thanks Cetin,
>almost perfect. The action is correct but the selected words have a red fontcolor and a horizontal line through it. No background color
>
>also can the dialog 'do you want to save this doc' be avoided and the changes (highlite) just be thrown out? It's just for viewing!
>
>Thanks again
>
>
>Peter
>(btw my daughter now lives n istambul and loves it - except she got caught by the riots and had to hide under a table in a restaurant)
>
>
>>>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