Sub MacroNomeProdotto()
Dim objDoc As Word.Document
Set objDoc = New Word.Document
With objDoc.Application
If Not .Visible Then
.Visible = True
End If
.Activate
.Documents.Open App.Path & "\" & "Prova ".doc", , False, True, "", , , ""
.Selection.GoTo What:=wdGoToBookmark, Name:="Prodotto"
.Selection.TypeText Text:=NomeProdotto
end sub
Io avevo questa istruzione:
.Selection.GoTo What:=wdGoToBookmark, Name:="Prodotto"
che generava un'eccezione.