Word VBA: Форматировать колонтитулы с помощью макроса

[Anton]

В приложенном документе мне нужно, чтобы все колонтитулы имели активным свойство "как в предыдущем разделе".
Как можно макросом поставить такой параметр сразу у всех колонтитулах во всех разделах?

При этом в документе могут быть колонтитулы разных видов: нечётных /чётных страниц, колонтитулы первых страниц разделов. Все виды колонтитулов должны остаться и в них надо тоже сделать "как в предыдущем разделе".

[вложение удалено администратором]

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

Макрос

Sub макрос()

    Dim sec As Section, hf As HeaderFooter
   
   
    ' Отключение монитора (может это ускорит макрос и чтобы не мерцало).
    Application.ScreenUpdating = False
   
    ' Цикл по всем разделам.
    For Each sec In ActiveDocument.Sections
        ' Цикл по всем видам верхних колонтитов. Есть три вида колонтитулов:
            '1) первой страницы раздела;
            '2) обычный колонтитул;
            '3) колонтитул нечётной или чётной страницы.
        For Each hf In sec.Headers
            ' Установка у колонтитула "Как в предыдущем".
            hf.LinkToPrevious = True
        Next hf
        ' Цикл по всем видам нижних колонтитулов. Их также три вида, как и у верхних.
        For Each hf In sec.Footers
            hf.LinkToPrevious = True
        Next hf
    Next sec
   
    ' Вкл. монитора и сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub

[свернуть]

[Anton]

Да! Большое спасибо! Как хотел!