Форум по VBA, Excel и Word

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