[quote="ADVANCED":19am6s1y]Другой вопрос, как применить макрос не открывая doc файл? Типа в "пакетном" режиме к нескольким файлам сразу.[/quote:19am6s1y]
Попробуйте так:
Sub bb()
FolderPath = "C:\1\" 'задаем папку
f = Dir(FolderPath)
Do While f <> ""
ChangeFileOpenDirectory FolderPath
Documents.Open FileName:=f
Selection.TypeText Text:="qwerty" 'тело макроса от сих
ActiveDocument.Save
ActiveWindow.Close 'до сих
f = Dir
Loop
End Sub
Открывает массив документов в папке, выполняет макрос.
Попробуйте так:
Sub bb()
FolderPath = "C:\1\" 'задаем папку
f = Dir(FolderPath)
Do While f <> ""
ChangeFileOpenDirectory FolderPath
Documents.Open FileName:=f
Selection.TypeText Text:="qwerty" 'тело макроса от сих
ActiveDocument.Save
ActiveWindow.Close 'до сих
f = Dir
Loop
End Sub
Открывает массив документов в папке, выполняет макрос.