I am not sure what is your selection, but if the problem is the Execute only, you can try this:
#DEFINE wdFindContinue 1
#DEFINE wdReplaceAll 2
thisform.oWord=CreateObject("Word.Application")
loDocument=thisform.oWord.Open("test.doc")
loDocument.Select
thisform.oWord.Selection.Find.Execute("**", .T., .T., .F., .F., .F., .T., 1, , "^p", wdReplaceAll)
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
