Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день,
возникла задача сменить все заголовки в word 2003,
header 1
header 2
>
на header 3
в сотне файлов самого разного вида и форматирования.
На данный момент приходится старым методом - открывая порционно и меняя все практически вручную.
Можно ли это автоматизировать?
1 записать с помощью макрорекордера сам процесс замены
2 подключить библиотеку
Microsoft Scripting Runtime (C:\Windows\System32\ScrRun.dll) — для того , чтобы можно было пользоваться объектом FileSystemObject и прочими для работы с файловой системой . Эта библиотека, которая есть на любом компьютере начиная с Windows 2000, — самый удобный способ выполнения большинства действий в файловой системе
3 скопировать! - для экспериментов только копировать! все необх файлы скажем в "C:\Files"
4 создать процедуру типа:
Dim oFSO As New Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim oFile As Scripting.File
Set oFolder = oFSO.GetFolder("C:\Files")
For Each oFile In oFolder.Files
oFile.Open
…
oFile.Close
Next5 вместо многоточия вставить текст вашей процедуры замены одного заголовка на другой.
Честно говоря ничего не понял, буду признателен за решение для широких масс населения.
файл(ы) в студию. - что было и что нужно получить - как грится до и после.
За образец можно взять макрос из заметки Массовое форматирование документов.
Нужно лишь прописать переменные для заголовков и заменить блок форматирования на нужные действия.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться