Buongiorno a tutto il forum io sono un neofita di vb2005 e ho fatto qualcosa in vb6 sto creando una applicazione in vb2005 che compili dei moduli textbox di word tramite codice qui però mi si solleva un problema,l'applicazione è composta da un semplice form e due button ognuno dei quali chiama una subroutine : cdp e TT2119 chiamando una singola sub cioè premendo un solo command button ad una singola istanza dell'applicazione i moduli di word vengono compilati correttamente mentre se nella stessa istanza dell'applicazione chiamo tutte e due le sub si verificano diversi errori di compilazione dei moduli
ho provato a modificare il nome dei campi moduli di word in modo che i moduli chiamati dalle due sub abbiano nomi diversi e in questo modo i campi modulo vengono compilati correttamente mi sembra che questo sia un errore all'interno di vb poichè in vb6 lo stesso codice funzionava correttamnte utilizzando gli stessi documenti di word il codice è il seguente scusate se è un po lungo ma non riesco a trovare l'errore
potete dirmi quale errore commetto ho provato a istanziare wrd wrddoc wrdcdp wrddoccdp come Microsoft.Office.Interop.Word.Application e Microsoft.Office.Interop.Word.Document
invece che come oggetti ma l'errore continua a persistere potete dirmi quale errore commetto e come posso risolverlo senza dover andare i modificare i nomi dei campi moduli dei documenti word
ho provato a modificare il nome dei campi moduli di word in modo che i moduli chiamati dalle due sub abbiano nomi diversi e in questo modo i campi modulo vengono compilati correttamente mi sembra che questo sia un errore all'interno di vb poichè in vb6 lo stesso codice funzionava correttamnte utilizzando gli stessi documenti di word il codice è il seguente scusate se è un po lungo ma non riesco a trovare l'errore
Codice:
Imports System.Data.OleDb
Imports System.Windows.Forms
Imports Word = Microsoft.Office.Interop.Word
PublicClass Form1
Inherits System.Windows.Forms.Form
Dim sTipoPresentazioneIPT AsString
Dim sTipoStampaIPT AsString
Dim sTipoPraticaIPT AsString
Dim sIndicazioniIPT AsString
Dim sPresentazioneIPT AsBoolean
Dim sSoggettoAcquirenteIPT AsString
Dim sSoggettoVenditoreIPT AsString
Dim sNumeroAcquirenteIPT AsString
Dim sNumeroVenditoreIPT AsString
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call tt2119()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call cdp()
EndSub
PublicSub cdp()
Dim sNewValueIDPratica AsString
sNewValueIDPratica = 1
Dim sCodicePraticaINI AsString
'Dim wrdCDP As Object = Nothing 'New Word.ApplicationClass
'Dim wrddocCDP As Object = Nothing
'Dim wrdCDP As New Microsoft.Office.Interop.Word.Application
'Dim wrddocCDP As New Microsoft.Office.Interop.Word.Document
Dim wrdCDP AsNewObject
Dim wrddocCDP AsNewObject
wrdCDP = CreateObject("Word.Application")
sTipoStampaIPT = "C"
sCodicePraticaINI = "PP11"
If sTipoStampaIPT = "C"Then
If sCodicePraticaINI = "PP11"Then
wrddocCDP = wrdCDP.Documents.Open("C:\File Gestionale\Compilazione CDP\CompilazioneCDP.doc")
EndIf
sSoggettoAcquirenteIPT = "P"
With wrddocCDP
If sSoggettoAcquirenteIPT = "C"Then
.txtCognome.Text = "cognome"
Else
.txtCognome.Text = "cognome"
EndIf
If sSoggettoAcquirenteIPT = "C"Then
.txtCognomeD.Text = "cognome"
Else
.txtNome.Value = "nome"
.txtSesso.Text = "M"
.txtCognomeD.Text = "cognome" & " " & "nome"
.txtComuneNascitaD.Text = "torino"
.txtProvinciaD.Text = "TO"
.txtDataNascitaD.Text = "data"
EndIf
If sSoggettoAcquirenteIPT = "C"Then
.txtTipoSocietà.Text = "m"
EndIf
.txtCodFiscaleD.Text = "codfiscale"
.txtCodiceFiscale.Text = "codfiscale"
If sSoggettoAcquirenteIPT <> "C"Then
.txtDataNascita.Text = "data"
.txtComuneNascita.Text = "torino"
.txtProvincia.Text = "to"
EndIf
.txtIndirizzo.Text = "via" & " " & "pippo"
.txtNumCivico.Text = "22"
.txtCAP.Text = "14100"
.txtLuogoResidenza.Text = "pluto"
.txtProvincia2.Text = "at"
.txtLuogoResidenzaD.Text = "pluto"
.txtProvincia2D.Text = "at"
.txtIndirizzoD.Text = "via" & " " & "pippo" & " n." & "22"
EndWith
EndIf
'Compilazione Dati Venditore
With wrddocCDP
.txtDataNascitaV.Text = "data"
.txtLuogoNascitaV.Text = "asti"
.txtProvNascitaV.Text = "at"
.txtIndirizzoV.Text = "via" & " " & "topolino" & " n." & "96"
.txtLuogoResidenzaV.Text = "paperino"
.txtProvinciaV.Text = "at"
.txtTipoDocumentoV.Text = "c.i."
.txtNumeroDocumentoV.Text = "123456"
.txtEnteV.Text = "comune"
.txtLuogoRilascioV.Text = "luogo"
.txtPronRilV.Text = "at"
.txtRilascioV.Text = "data1"
.txtScadenzaV.Text = "data2"
.txtCognomeV.Text = "cognomev" & " " & "nomev"
EndWith
'Salva il File definitivo con il nome acquirente venditore targa
'sFileNomePratica = "C:\File Gestionale\CDP Stampati\" & sCognomeAcquirenteExc & " " & sCognomeVenditoreExc & " " & sTarga & ".doc"
'sFileNomePratica = "\\Pdl1\File Gestionale\CDP Stampati\" & sCognomeAcquirenteExc & " " & sCognomeVenditoreExc & " " & sTarga & ".doc"
wrddocCDP.SaveAs("C:\Documents and Settings\Utente\Desktop\doc3.doc")
wrddocCDP.Close(False)
wrdCDP.Quit()
wrdCDP = Nothing
wrddocCDP = Nothing
wrdCDP = DBNull.Value
wrddocCDP = DBNull.Value
EndSub
PublicSub tt2119()
Dim sNewValueIDPratica AsString
sNewValueIDPratica = 1
'Dim wrd As New Microsoft.Office.Interop.Word.Application
'Dim wrddoc As New Microsoft.Office.Interop.Word.Document
Dim wrd AsNewObject
Dim wrddoc AsNewObject
wrd = CreateObject("Word.Application")
wrddoc = wrd.Documents.Open("C:\Documents and Settings\Utente\Desktop\File Gestionale\Compilazione CDP\TT2119.doc")
'Compilazione Dati Acquirente 1
With wrddoc.ActiveWindow.Application.ActiveDocument
.txtCognome.value = "cognome"
.txtNomeTT2119.Text = "nome"
.txtDenominazione.Text = "m"
.txtCodiceFiscaleTT2119.Text = "codfiscale"
.txtDataNascita.Text = "data"
.txtComuneNascita.Text = "torino"
.txtProvNascita.Text = "to"
.txtIndirizzo.Text = "via" & " " & "pippo" & " n." & "22"
.txtComuneResidenza.Text = "pluto"
.txtProvResidenza.Text = "at"
EndWith
With wrddoc.ActiveWindow.Application.ActiveDocument
'Inserimento Dati Veicolo
.txtTarga.Text = "Targa"
.txtTariffa.Text = "2.2"
.txtUfficio.Text = "asti"
.txtOperazione.Text = "da"
.txtPropriettario.Text = "Proprietario"
.txtFabbrica.Text = "Fabbrica"
.txtClassificazione.Text = "autoveicolo"
.txtTelaio.Text = "Telaio"
.txtOmologazione.Text = "Omologazione"
.txtImmatricolazione.Text = "2000"
EndWith
wrddoc.SaveAs("C:\Documents and Settings\Utente\Desktop\TT2119.doc")
wrddoc.Close(False)
wrd.Quit()
wrd = Nothing
wrddoc = Nothing
wrd = DBNull.Value
wrddoc = DBNull.Value
EndSub
EndClasspotete dirmi quale errore commetto ho provato a istanziare wrd wrddoc wrdcdp wrddoccdp come Microsoft.Office.Interop.Word.Application e Microsoft.Office.Interop.Word.Document
invece che come oggetti ma l'errore continua a persistere potete dirmi quale errore commetto e come posso risolverlo senza dover andare i modificare i nomi dei campi moduli dei documenti word
