RiskSoft, как-то так:
Код:
Option Explicit
Const wdFindContinue = 1
Const wdReplaceAll = 2
Dim objFSO
Dim objFile
Dim objWord
Dim objDocument
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWord = WScript.CreateObject("Word.Application")
objWord.Visible = False
objWord.DisplayAlerts = False
With objFSO
For Each objFile In .GetFolder("D:\_DocIn").Files
If UCase(.GetExtensionName(objFile.Name)) = UCase("doc") Then
Set objDocument = objWord.Documents.Open(objFile.Path)
WScript.Echo objFile.Name, objDocument.Content.Find.Execute("+", False, False, False, False, False, True, wdFindContinue, False, "*", wdReplaceAll)
objDocument.SaveAs .BuildPath("D:\_DocOut", objFile.Name)
objDocument.Close
End if
Next
End With
objWord.Quit
Set objWord = Nothing
Set objFSO = Nothing
WScript.Quit 0
А какова общая цель?
