Подскажите пожалуйста решение.
Я устанавливаю номер страницы, мои действия такие: Вставка - Номер страницы - Внизу страницы - эскиз "по центру".
Но нумерация страниц устанавливается до какого-то раздела и дальше надо устанавливать снова.
Как сделать у всех колонтитулов параметр "как в предыдущем разделе"?
Макрос
Sub макрос()
Dim sec As Section
'1. Отключение монитора (может это ускорит макрос и не будет мерцать).
Application.ScreenUpdating = False
'2. Цикл по всем разделам.
For Each sec In ActiveDocument.Sections
'1) Отключение параметра "Различать колонтитулы" - чётных и нечётных страниц и первой страницы.
sec.PageSetup.OddAndEvenPagesHeaderFooter = False
sec.PageSetup.DifferentFirstPageHeaderFooter = False
'2) Установка у основного колонтитула "как в предыдущем".
sec.Headers(wdHeaderFooterPrimary).LinkToPrevious = True
sec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
Next sec
'3. Включение монитора.
Application.ScreenUpdating = True
'4. Сообщение.
MsgBox "Готово", vbInformation
End Sub
Если в файле нет одновременно книжной и альбомной ориентации (или других каких-то разных настроек), то можно удалить разрывы разделов. Получится один раздел и затем настроить в нём поля и колонтитулы.
Пропустил как-то ответ. Большое спасибо!