Il sito dedicato all'informatica ideato da Iasparra Francesco
Supponiamo di avere un documento word (il cui nome e' esempio.doc) e vogliamo sostituire con uno script automatico una stringa, ad esempio ${VALORE1}, con la string "TUTTO OK".
Il seguente script in Visual Basic permette la sostituizione di stringhe in un file Doc e di crearne uno nuovo con il nome risultato.doc:
Const wdReplaceAll = 2 Const wdFindContinue = 1 Sub ChangeText(textin, textout) objWord.Selection.Find.ClearFormatting objWord.Selection.Find.Text = textin objWord.Selection.Find.MatchCase = True objWord.Selection.Find.MatchWholeWord = True objWord.Selection.Find.Replacement.Text = textout objWord.Selection.Find.Replacement.ClearFormatting objWord.Selection.Find.Execute ,,,,,,,,,,wdReplaceAll End Sub Set objWord = CreateObject("Word.Application") objWord.Visible = False Set objDoc = objWord.Documents.Open("esempio.doc") ChangeText "${VALORE1}","TUTTO OK" objDoc.SaveAs("risultato.doc") objDoc.Close objWord.Quit
La funzione ChangeText permette la sostiuzione di stringhe ed essa puo' essere richiamata piu' volte.