>>You could use the dialog.

#define wdDialogEditReplace 117
><b>with loWord
>*...</b>
>>with .dialogs(wdDialogEditReplace)
>>	.Find = "#$@"
>>	.Replace = "13" && If you mean chr(13) then "^p"
>>	.MatchCase = .f.
>>	.ReplaceAll = .t.
>>	.Execute
>>endwith
><b>endwith</b>

Cetin

I Just inserted the code and no luck, the same results. The program finishes, but the text is not changed. I have loWord.visible = .T. so I can see the word scripts executing, but I dont see any dialog to do the replace, the data gets entered OK, but the text does not get replaced. Any other suggestions?