Dim wdDoNotSaveChanges As Object
Dim Word As Object

Dim objDoc As Word.Document
objDoc = New Word.Document
With objDoc.Application
If Not .Visible Then
.Visible = True
End If
.Activate()

.Documents.Open(Application.StartupPath & "\" & "Prova.doc", , False, True,)

/*****eccezione****/
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="Prodotto")
.Selection.TypeText(Text:=NomeProdotto)

'.Selection.GoTo(What:=wdGoToBookmark, Name:="Produttore")
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="Produttore")
.Selection.TypeText(Text:=Produttore)

'.Selection.GoTo(What:=wdGoToBookmark, Name:="Indirizzo")
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="Indirizzo")
.Selection.TypeText(Text:=Indirizzo & " " & Ncivico)

'.Selection.GoTo(What:=wdGoToBookmark, Name:="CapCittāProv")
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="CapCittāProv")
.Selection.TypeText(Text:=Cap & " " & Cittā & " " & "(" & Provincia & ")")

'.Selection.GoTo(What:=wdGoToBookmark, Name:="Telefono")
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="Telefono")
.Selection.TypeText(Text:=Telefono)

'.Selection.GoTo(What:=wdGoToBookmark, Name:="Nazione")
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="Nazione")
.Selection.TypeText(Text:=Nazione)

'.Selection.GoTo(What:=wdGoToBookmark, Name:="EMail")
Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="EMail")
.Selection.TypeText(Text:=EMail)
objDoc.Application.PrintOut(False)

'Printer.EndDoc()

.Documents.Close(wdDoNotSaveChanges)

.Quit()

End With

objDoc = Nothing


/*****eccezione****/
La variabile 'Word' viene utilizzata prima che le sia stato assegnato un valore. Č possibile che venga restituita un'eccezione dovuta a un riferimento con valore null in fase di esecuzione. D:\Documents and Settings\Jonny\Documenti\Visual Studio 2008\Projects\ProgrammaJonny\Modulo.vb

Come si gestiscono le eccezioni???
Il codice č giusto