Word VBA Макрос: Как продолжить нумерацию страниц?

[Anton]

Подскажите пожалуйста решение.
Я устанавливаю номер страницы, мои действия такие: Вставка - Номер страницы - Внизу страницы - эскиз "по центру".
Но нумерация страниц устанавливается до какого-то раздела и дальше надо устанавливать снова.

Как сделать у всех колонтитулов параметр "как в предыдущем разделе"?

[Администратор]

Макрос

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

[свернуть]

Если в файле нет одновременно книжной и альбомной ориентации (или других каких-то разных настроек), то можно удалить разрывы разделов. Получится один раздел и затем настроить в нём поля и колонтитулы.

[Anton]

Пропустил как-то ответ. Большое спасибо!