#DEFINE wdFindContinue 1 #DEFINE wdReplaceAll 2 thisform.oWord=CreateObject("Word.Application") * I added this two next lines, for I think they are missing? loDocument=thisform.oWord.Open("test.doc") loDocument.Select thisform.oWord.Selection.Find.Execute("**", .T., .T., .F., .F., .F., .T., 1, , "^p", wdReplaceAll)