типа так
var FName = "T:\01_12003.doc";
var WrdDoc = WScript.CreateObject("Word.application");
WrdDoc.Visible = true;
WrdDoc.Documents.Open(FName);
WrdDoc.Documents(FName).Activate();
var SearchList = new Array(
"[K1Z01-1]",
"[K1Z04-1]",
"[TODAY]"
);
var RplList = new Array(
"7,902,313.39",
"3,123,667.64",
"7,315,402.27",
"30/09/2003"
);
var NParam = SearchList.length;
var CurIdx = 0;
for (CurIdx = 0; CurIdx < NParam; CurIdx++) {
WrdDoc.ActiveDocument.Content.Find.ClearFormatting();
WrdDoc.ActiveDocument.Content.Find.Execute( SearchList[CurIdx], true, true, false, false, false, true, 1, false, RplList[CurIdx], 2); }