ciao, sto cercando di crearmi un documento word tramite la pressione di un bottone che ho nella mia form.
Riesco ad aprirmi il documento e a valorizzare alcuni dati ma non riesco a riempirmi una tabella con i dati che ho carcati nella form , il mio codice è questo, sapreste aiutarmi?
Public Sub CreaFileWord()
' Creo una nuova istanza di Word
Dim Data As Date
Data = Date.Today
' Replace string "\\MyServer" with name of the remote computer.
WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Dim objDoc As Object
' apro il file word prendendolo dalla directory di questo progetto
objDoc = WordApp.Documents.Open("C:\Programmi\Sindacato\" + _
"SoftUIL\RiepilogoIscritti.doc")
'ora chiamo la funzione InserisciVariabileWord per ogni variabile
'che voglio sostituire
Dim Dt As New System.Data.DataTable
Dt = xDb.myDataTable("SELECT NOME, COGNOME, AZIENDA FROM ISCRITTI")
Dim MyRange As Object
MyRange = objDoc.Content
InserisciVariabileWord("%Data%", Data)
InserisciVariabileWord("%TotIscr%", txtTotIscr.Text.Trim)
InserisciVariabileWord("%TotRinu%", txtRin.Text.Trim)
InserisciVariabileWord("%cognome%", Dt.Rows.Item(0).Item("COGNOME"))
InserisciVariabileWord("%nome%", Dt.Rows.Item(0).Item("NOME"))
InserisciVariabileWord("%azienda%", Dt.Rows.Item(0).Item("AZIENDA"))
' ora che abbiamo il testo possiamo salvare il documento
WordApp.Documents.Item(1).SaveAs("C:\Programmi\Sindacato"+ _
"\RiepilogoIscritti.doc")
'WordApp.Documents.Application.ShowMe()
WordApp.Documents.Open("C:\Programmi\Sindacato\"+ _
"RiepilogoIscritti.doc")
' chiudiamo l'istanza di Word precedentemente creata
'WordApp.Quit()
'distruggo esplicitamente l'istanza di word creata in precedenza
'per evitare problemi di memoria e' sempre opportuno farlo
'UPGRADE_NOTE: È possibile che l'oggetto WordApp non venga eliminato finché non venga raccolto nel Garbage Collector. Fare clic qui per ulteriori informazioni: 'ms-help://MS.VSCC.2003/commoner/redir/
redirect.htm?keyword="vbup1029"'
'WordApp = Nothing
End Sub
Public Sub InserisciVariabileWord(ByRef sVariabile As String, ByRef sValore As String)
'Dim WordInt As New Microsoft.Office.Interop.Word.WdReplace
WordApp.Selection.Find.ClearFormatting()
WordApp.Selection.Find.Replacement.ClearFormatting()
With WordApp.Selection.Find
.Text = sVariabile
.Replacement.Text = sValore
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'WordApp.Selection.Find.Execute(Replace:=Microsoft.Office.
Interop.Word.WdReplace.wdReplaceAll.wdReplaceAll)
WordApp.Selection.Find.Execute(Replace:=2)
End Sub
Ultima modifica effettuata da Il Totem il 06/08/2007 alle 20:16 | 
