| LebedevZrk |
04-07-2011 05:02 1706409 |
Массовая замена блока в Word
Есть ряд файлов. В них встречаются одинаковые фразы. Как произвести их массовую замену (альтернатива ctrl+h только поиск во всех файлах)?
|
VBA макросом, або скриптом WSH, PoSH — любым клиентом, поддерживающем Automation.
|
| LebedevZrk |
04-07-2011 07:23 1706431 |
Спасибо. А можно подробней? Что да как? :)
|
| LebedevZrk |
05-07-2011 16:56 1707568 |
up1
|
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
|
Время: 08:21.
© OSzone.net 2001-
