Valorizzare campi word dinamicamente

venerdì 15 maggio 2009 - 10.54

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

maurik Profilo | Junior Member

129 messaggi | Data Invio: ven 15 mag 2009 - 10:54

Buongiorno ragazzi,
vorrei sapere come posso , partendo da un template, valorizzare dei campi in un documento word in modo dinamico. I campi da inserire saranno presi ovviamente all'interno di un DataBase.

Grazie in anticipo per l'aiuto.

Jok83 Profilo | Junior Member

139 messaggi | Data Invio: ven 15 mag 2009 - 14:52

Ciao

io per cercare e sostituire su word un templete faccio così:
'imprto queste librerie
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

nell procedura che deve sostituire :

Dim objword As Object
Dim filename As String
filename = "C:\prova.doc" ' il percorso del tuo word
objword = CreateObject("Word.Application")
objword.Documents.Open(filename)
objword.Visible = False ' non rendo visibile il documento ma se vuoi vederlo metti true

objword.Selection.Find.ClearFormatting()
objword.Selection.Find.Text = "£Cognome" ' cerca nel word questa parola naturalmente devi averla messa nel punto in cui vuoi appaia il campo dinamico
objword.Selection.Find.Replacement.ClearFormatting()
objword.Selection.Find.Replacement.Text = "PLUTO" ' qui metterai il tuo campo che so ds.tables(0).row(0).item(1).tostring
objword.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll).

objword.Selection.Find.ClearFormatting()
objword.Selection.Find.Text = "£Nome" ' cerca nel word questa parola naturalmente devi averla messa nel punto in cui vuoi appaia il campo dinamico
objword.Selection.Find.Replacement.ClearFormatting()
objword.Selection.Find.Replacement.Text = "PIPPO" ' qui metterai il tuo campo che so ds.tables(0).row(0).item(1).tostring
objword.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll).
objword.Documents.Close()
objword.Quit()

Spero fosse quello che cercavi ciao

maurik Profilo | Junior Member

129 messaggi | Data Invio: ven 15 mag 2009 - 16:00

Si credo proprio che sia questo , adesso faccio una prova. Grazie

p.s.= ti faccio sapere grazie ancora

Jok83 Profilo | Junior Member

139 messaggi | Data Invio: ven 15 mag 2009 - 16:15

Vai su Esplora soluzioni, selezioni la tua applicazione fai tasto destro, nei riferimenti clicchi su aggiungi e cerchi microsoft,office.interopt.word nei .Net e dai ok.
Non ricordo sinceramente se all'epoca le ho scaricate ma mi sembra ci fossero già..fammi sapere.

maurik Profilo | Junior Member

129 messaggi | Data Invio: sab 16 mag 2009 - 15:23

Tutto ok , funziona .

Grazie

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !