#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
use home()+"samples\data\customer" && test table application.datatoclip() wait window nowait "Creating Word Document..." oWord=createobject("word.application") && Create word object with oWord .visible = .t. && Show word app .documents.add && New file, default template .Selection.Paste .Selection.Goto(-1,,,"\StartOfDoc") #define wdDialogEditReplace 117 with .dialogs(wdDialogEditReplace) .Find = "Owner" .Replace = "Çetin" .MatchCase = .f. .ReplaceAll = .t. .Execute endwith *!* with .wordbasic && Word.basic equiavalant *!* .startofdocument && Go to start *!* .EditFindClearFormatting && Start a find&replace *!* .editfind("Owner","Boss",0,0,0,0,0,0,,1,,1) *!* && Replace "Owner" with "Boss" *!* endwith endwith wait clearCetin