>Hello Lou Harris,
>
> I Thank you to try help me but i did what you write to me and i didn't success, but the VFP don't shows me a error message and my word document don't had changes
>
>thanks
Hi Ander,

oWordDocument=createobject("word.application")	&& Create word object
with oWordDocument
	with oWordDocument.wordbasic
		.appshow
		.fileopen("c:\temp\ander.doc")
	endwith
	.ActiveDocument.variables("Cidade").value = "Porto Allegre"
	For ix= 1 to .ActiveDocument.Fields.count
    	if at("Cidade",.ActiveDocument.Fields(ix).Code.text) > 0
        	.ActiveDocument.Fields(ix).Update
	EndIf
	Next
endwith

Cetin