VBScript: modificare un file MS Word

Un semplice script che ti permette di sostituire una stringa in un documento Word

---

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.