[VB.NET] Gestione delle eccezioni nell'interazione con Word

[jonnyx91]

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

[oregon]

Non c'entra nulla la gestione delle eccezioni.

L'errore indica che stai utilizzando la variabile Word senza averla mai inizializzata. Infatti hai scritto

Dim Word As Object

e la usi subito in

Word.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBo okmark, Name:="Prodotto")

senza averle mai assegnato alcun valore ...

[jonnyx91]

Come si inizializza la variabile word??
E poi perchè devo inizializzarla.
I file .doc che apro non sono vuoti, sono solo da modificare nei punti dove ho messo i segnalibri

[jonnyx91]

Come si assegnano i valori alla variabile word e quali valori bisogna assegnare??