>>>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?
Brett,
Which dialog ? This doesn't show up the dialog just fill and execute it.
I think it doesn't get replaced because the selection is not in correct place.

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 clear

Cetin