[RiskSoft]

Гениально !!! Все работает, я в таком восторге ) На что раньше уходило день, теперь все решается за пару минут.


WScript.Echo objFile.Name, objDocument.Content.Find.Execute("Счет № 1/", False, False, False, False, False, True, wdFindContinue, False, "Счет № 4/", wdReplaceAll)
WScript.Echo objFile.Name, objDocument.Content.Find.Execute("«31» января 2012 г.", False, False, False, False, False, True, wdFindContinue, False, "«30» апреля 2012 г.", wdReplaceAll)
WScript.Echo objFile.Name, objDocument.Content.Find.Execute("за январь 2012 г.", False, False, False, False, False, True, wdFindContinue, False, "за апрель 2012 г.", wdReplaceAll)

А можно еще переделать скрипт, чтобы не было MsgBox о произведенной замене.
И автоматом еще отправить измененный документ на печать весь документы и определенные страницы.