Sometimes recording a macro in Word and using the "translated" code in VFP works well and sometimes it doesn't. The find and replace feature in Word is one of these instances where it doesn't work as expected. Although the find feature works, the replace seems to be ingnored by VFP. You have to resort to Cut and paste to achieve this. Here a function that can be used as a Find and Replace , in a Word document.
wordFindAndreplace("paul","Paul","c:\hello.doc") && For example FUNCTION wordFindAndReplace LPARAMETERS cValueTofind,cValueToreplace,cDocument LOCAL lValue oWord=Createobject("word.application") oDocument=oWord.Documents.Open(cDocument) loSelection=oWord.Selection With loSelection.Find .Text = cValueToFind .Forward = .T. .Wrap= 1 Endwith Do While .T. lValue = loSelection.Find.Execute IF lValue loSelection.Cut loSelection.InsertBefore(cValueToReplace) loselection.MoveRight ELSE EXIT ENIF Enddo ENDFUNC oWord.Visible =.T.