Пакетное удаление и замена верхнего и нижнего колонтитула документов Microsoft Word.

Открыть Microsoft WORD, просмотреть, макрос, просмотреть макрос, создать новый макрос

Подпункт а()

Скрыть myDialogs как FileDialogs, oDoc как Documents, oSecs как Sections

Dim oFile как вариант, myRange как диапазон

При ошибке Возобновить Далее

Определить диалоговое окно выбора папки

Установите myDialogue=Application FileLog (msoFileDialogFilePicker)

С помощью myDialogs

. Фильтры. Очистить 'Очищает все элементы в фильтрах файлов

. Фильтры. Добавить «Все файлы Word», «*. doc, *. docx», 1 'Добавить фильтры ко всем файлам Word

. AllowMultiSelect=True 'Разрешить множественный выбор

Если Показать=-1 Тогда 'ОК

Для каждого oFile In SelectedItems цикл по всем выбранным элементам

Установить oDoc=Открыть документы Word (Имя файла:=oFile, Видимость:=False)

Для каждого oSec In oDoc Sections документирует цикл внутри разделов

Установить диапазон заголовков myRange=oSec (wdHeaderFooterPrimary)

MyRange Delete 'Удаление содержимого в заголовке

MyRange Текст = «www.jincan.net»

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'Центрировать текст

MyRange ParagraphFormat Borders (wdBorderBottom) LineStyle=wdLineStyleNone 'Нижняя граница абзаца

Со шрифтом myRange

Конец с

Установить диапазон нижних колонтитулов myRange=oSec (wdHeaderFooterPrimary)

MyRange Delete 'Удаление содержимого нижнего колонтитула

MyRange Свернуть wdCollapseEnd

MyRange ВставитьПослеНомерСтраницы

Добавить поля MyRange Диапазон:=myRange, Тип:=wdFieldEmpty, Текст:=”PAGE”, PreserveFormatting:=True

MyRange ParagraphFormat Alignment=wdAlignParagraphCenter 'Центрировать номера страниц

Следующий

ODoc Закрыть True

Следующий

Конец Если

Конец с

Конец субтитра