[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