Hello All !
I'm using sometimes Word as a COM SERVER, today I got a problem - couldn't find right syntax for this marco (all I need to replace ** signs with ^p)

With Selection.Find
.Text = "**"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
...
End With
Selection.Find.Execute Replace:=wdReplaceAll

I tried something like this:
#DEFINE wdFindContinue 1
#DEFINE wdReplaceAll 2
thisform.oWord=CreateObject("Word.Application")
WITH thisform.oWord.Selection.Find
.Text = "**"
.Replacement.Text = "^p"
.Forward = .T.
.Wrap = wdFindContinue
.....
ENDWITH
thisform.oWord.Selection.Find.Execute(wdReplaceAll) && this part doesn't work

Thanks in advance
Mariam