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

Hello

Possible immediately update all Fields in the Word Document and don't needed the cycle.

Very easy:
...
oWordDocument.ActiveDocument.Fields.Update
...

Good luck.

Alexander Grigorjev