>LOCAL oWord AS "Word.Application" >oWord = CREATEOBJECT("Word.Application") >oWord.Documents.Open("c:\vapps\vcpr3\temp\test.doc") > >oWord.Visible = .t. >loSelection = oWord.ActiveWindow.ActivePane.SELECTION >loSelection.Find.ClearFormatting() >loSelection.Find.Replacement.Highlight = .t. > >WITH loSelection.Find > .Text = "king" > .Replacement.Text = "king" > .Forward = .t. > .Wrap = 1 > .Format = .t. > .MatchCase = .f. > .MatchWholeWord = .t. > .MatchWildcards = .f. > .MatchSoundsLike = .f. > .MatchAllWordForms = .f. >ENDWITH >loSelection.Find.Execute(,,,,,,,,,,2) >