#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>