Set WordApp = CreateObject('word.application.8')
Set WordDoc = WordApp.Documents.Open('c:\\mondocword.dot')
' NUMERO
WordApp.Selection.GoTo What:=wdGoToBookmark, Name:='Num_FT''
With WordApp.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
WordApp.Selection.TypeText Text:=FEuil1.range('B2').value