Parametrizzare campi in documenti word

domenica 28 ottobre 2007 - 16.35

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

gigi90 Profilo | Senior Member

285 messaggi | Data Invio: dom 28 ott 2007 - 16:35

Salve a tutti, io ho scrittoun applicazione alla quale vorrei aggiungere la seguente funzionalità:
Ho dei documenti in formato Word(.doc) e vorrei che da codice gli potrei passare alcuni parametri come Nome,Congome ecc.,come posso fare?

vellgiul Profilo | Newbie

3 messaggi | Data Invio: mer 12 nov 2008 - 14:00

Ciao,
Dipende da che linguaggio stai utilizzando. Se usi VBA puoi fare come segue:
Aggiungi il riferimento a Microsoft Word nn Object Library (nn sta per la versione di word installata nel pc).
Dichiari una variabile:
Dim WordApp As Word.Application 'Oggetto Application

Set WordApp = CreateObject("Word.Application")
Apri il documento:
WordApp.Documents.Open FileName:="Nomefile.doc"

WordApp.Visible = False

queste invece sono le istruzioni per cercare e sostituire una parola:
WordApp.Selection.Find.ClearFormatting
WordApp.Selection.Find.Replacement.ClearFormatting
With WordApp.Selection.Find
.Text = Testo1
.Replacement.Text = Testo2
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WordApp.Selection.Find.Execute Replace:=wdReplaceAll

in cui testo1 è la parola da cercare e sostituire e testo2 la parola con cui sostituirla.
Chiaramente nel tuo documento dovrai mettere dei carattari identificativi tipo #Nome#, #indirizzo# ecc.

con queste istruzioni salvi e chiudi il documento.

WordApp.ActiveDocument.Save
WordApp.Application.Quit

Set WordApp = Nothing

Spero di essere stato chiaro.
Ciao,
Giuliano

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 !