В приложенном документе мне нужно, чтобы все колонтитулы имели активным свойство "как в предыдущем разделе".
Как можно макросом поставить такой параметр сразу у всех колонтитулах во всех разделах?
При этом в документе могут быть колонтитулы разных видов: нечётных /чётных страниц, колонтитулы первых страниц разделов. Все виды колонтитулов должны остаться и в них надо тоже сделать "как в предыдущем разделе".
[вложение удалено администратором]
Макрос
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
Да! Большое спасибо! Как хотел!