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
Sub Macro1()
Set WordApp = CreateObject('word.application')
WordApp.Visible = False
WordApp.Documents.Add DocumentType:=NewDocument
Range('A3:B100').Select
Selection.Copy
WordApp.Selection.Paste
WordApp.Visible = True
End Sub