Массовая замена блока в Word

[LebedevZrk]

Есть ряд файлов. В них встречаются одинаковые фразы. Как произвести их массовую замену (альтернатива ctrl+h только поиск во всех файлах)?

[Iska]

VBA макросом, або скриптом WSH, PoSH — любым клиентом, поддерживающем Automation.

[LebedevZrk]

Спасибо. А можно подробней? Что да как? :)

[LebedevZrk]

up1

[Iska]

LebedevZrk, подробней можно. Опишите цели и задачи: что хотите получить, как хотелось бы запускать и т.п. Тоже — подробно.

Либо вот Вам примерная болванка кода (не проверялось) для замены текста в файлах, указанных параметрами при вызове скрипта:
Option Explicit

Const wdFindContinue = 1
Const wdReplaceAll = 2

Dim objArg
Dim objWord
Dim objDocument


If WScript.Arguments.Count > 0 Then
Set objWord = WScript.CreateObject("Word.Application")

For Each objArg In WScript.Arguments
Set objDocument = objWord.Documents.Open(objArg)

objWord.Selection.Find.Execute _
"что ищем", False, False, False, False, False, True, wdFindContinue, False, "чем заменяем", wdReplaceAll

objDocument.Save
objDocument.Close

Set objDocument = Nothing
Next

objWord.Quit
Set objWord = Nothing
Else
'
End If

WScript.Quit 0