[VB.NET] Inizializzare variabile Application di 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.
Solleva un'eccezione perchè alla variabile Word non è assegnato nessun valore.
Che valore bisogna assegnare per poterla utilizzare??
Bisogna assegnarla anche se i file di word che si utilizzano non sono nuovi ma solo da modificare.

[jonnyx91]

Nessuno sa come si inizializza la variabile di word????

[oregon]

Dim word As New Word.Application

[jonnyx91]

Devo inserirlo prima o dopo la open??

[oregon]

Ovviamente prima ci si collega con Word e poi si apre il documento ...

Comunque, se porti codice da VB6 a VB.NET, devi fare attenzione alle differenze ...

[jonnyx91]

Ho inserito la dichiarazione della variabile di word come suggerito, però ho dovuto togliere la seguente istruzione Dim Word As Object sennò dava errore perchè c'erano 2 dichiarazioni della stessa variabile.

Lo stesso errore/eccezione viene dato alla dichiarazione di wdDoNotSaveChanges
che è: Dim wdDoNotSaveChanges As Object
che serve per chiudere il file di word aperto senza apportare modifiche al documento.

[oregon]

Originariamente inviato da jonnyx91
Ho inserito la dichiarazione della variabile di word come suggerito, però ho dovuto togliere la seguente istruzione Dim Word As Object sennò dava errore perchè c'erano 2 dichiarazioni della stessa variabile.

Mi pare ovvio ...

Lo stesso errore/eccezione viene dato alla dichiarazione di wdDoNotSaveChanges
che è: Dim wdDoNotSaveChanges As Object
che serve per chiudere il file di word aperto senza apportare modifiche al documento.

Quella non puo' essere una variabile ... e' una costante e dovrebbe essere gia' definita ... non c'e' nessun bisogno di indicarla ...

Cerca qualche esempio di utilizzo di Word con VB.NET su internet (ce ne sono tanti) e parti da quelli ... non cercare di usare "pezzi" presi da programmi scritti in VB6 ...

[jonnyx91]

Se non dichiaro la variabile però mi da errore e mi dice che la variabile non è inizializzata. Perchè?

[jonnyx91]

Perchè da errore?

[jonnyx91]

Se non dichiaro Dim wdDoNotSaveChanges As Object mi da errore dicendo che wdDoNotSaveChanges non è dichiarato.
E inoltre non c'è nell'elenco delle costanti.
Come devo fare??