PUBLIC oWord > >*** set the LOCALEID to English >nlLocaleId=sys(3004) && Save local id >=sys(3006,1033) && We will be sending instructions in English >USE customer && test table >Application.datatoclip() >WAIT window nowait "Creating Word Document..." > >oWord=createobject("word.application") && Create word object >WITH oWord > .documents.add && New file, default template > .Selection.Paste > .Selection.Goto(-1,,,"\StartOfDoc") > #DEFINE wdDialogEditReplace 117 > WITH .dialogs(wdDialogEditReplace) > .Find = "Owner" > .Replace = "Çetin" > .MatchCase = .f. > .ReplaceAll = .t. > .Execute > ENDWITH > .ActiveDocument.SaveAs("c:\temp\test.doc") > .ActiveDocument.Close(-1) > .Quit >ENDWITH >WAIT clearCetin