objDoc.Content.Find.Execute(FindText:="xcomunex", ReplaceWith:=FormDati.TextBox1.Text, Replace:=Word.WdReplace.wdReplaceAll)