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