Errore compilazione campi word

perseo74

Nuovo Utente
8 Nov 2010
1
0
0
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
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
EndClass

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
 

Vins

Moderatore
Membro dello Staff
MOD
28 Lug 2009
238
19
0
Ciao,

puoi riportare qualche esempio di messaggio d'errore?
 
Discussioni simili
Autore Titolo Forum Risposte Data
felino Windows 7: errore 80072EFE su Windows Update Windows e Software 1
A errore http://datatables.net/tn/7 PHP 4
M Errore visualizzazione meta tag title e description SEO e Posizionamento 1
A Errore durante il salvataggio Photoshop 0
M Errore configurazione motion detection nvr Hikvision DS-7616 IP Cam e Videosorveglianza 0
voldemort [c] Errore di segmentazione (core dump creato) C/C++ 1
T SSD - errore sistema Hardware 2
R Navigare sito con cURL, mi restituisce errore PHP 0
L File CSV con app inventor da errore Sviluppo app per Android 2
A Errore visualizzazione selezione testo Photoshop 0
S Errore PHP - Notice: Undefined index ... PHP 14
U Campo vuoto data errore Fatal error: PHP 2
R Errore UPDATE tabella mysql PHP 1
R W10 Segnalazione di errore su terminale USB Windows e Software 0
G non riesco a capire quale sia l'errore [SQL] MySQL 2
I Errore 80040220 nella newsletter con paginazione Classic ASP 0
E Errore di lettura php in html PHP 8
A php metodo post jquery non da mai errore jQuery 4
W Errore di run-time di Microsoft VBScript error '800a0035' Impossibile trovare il file Classic ASP 0
B Errore unexpected '$variabile' (T_VARIABLE) in your code on line PHP 2
M errore dopo passaggio Php 7.2 PHP 6
S -> Errore PHP 8
S Errore "ftp_put(): Can't open that file: Permission denied" PHP 1
P Errore telecamere hdcvi dahua IP Cam e Videosorveglianza 16
L form multipla php sql,errore in inserimento MySQL 0
M Errore JavaScript per php [objeto HTMLParagraphElement] PHP 0
F [PHP]Errore registrazione PHP 8
MarcoGrazia [PHP] Download di file con errore all'interno. PHP 1
V [ORACLE] Errore ora-06512 at sys.utl_file Oracle 0
A [WordPress] Errore Plugin WordPress 0
P [WordPress] Messaggio di errore in file style.css WordPress 0
G [Javascript] Errore inserimento dati Backend Node.js e workbench Javascript 1
M [PHP] WS-Security errore PHP 0
E Errore configurazione 18 Dahua Dome POE IP Cam e Videosorveglianza 6
M [PHP] Errore di percorso, file not found PHP 3
MrSab [MySQL] Foreign key errore MySQL 5
D Acer errore 0701: USB Over Current... Hardware 0
gandalf1959 Errore di connessione a DB MySql PHP 5
ANDREA20 errore php PHP 1
N [PHP] ERRORE: SyntaxError: Unexpected token N in JSON at position 1 PHP 0
Tommy03 Errore invio email con PHP PHP 1
Max 1 Errore driver con lettore di smart card Hardware 6
Shyson [PHP] Errore inspiegabile PHP 1
A Errore NET::ERR_CERT_COMMON_NAME_INVALID SEO e Posizionamento 0
A index.php errore PHP 3
M Errore pagina php 'Cannot detect primary key' PHP 8
Tommy03 [PHP] Errore query selezione avg PHP 0
L [Java] Errore json conversione Java 0
L [PHP] Errore 410 Gone... PHP 1
C [Visual Basic] Errore INSERT su DB MySQL (VB.Net) Visual Basic 4

Discussioni simili