"Особый колонтитул для 1-ой страницы" и "Как в предыдущем разделе"

Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

Sub Макрос1()
'
' Макрос для формирования нового раздела с новой страницы 
' с параметром Особый колонтитул для первой страницы 
' и с отключенной кнопкой Как в предыдущем разделе
'
'   Вставка раздела с новой страницы:
    Selection.InsertBreak Type:=wdSectionBreakNextPage
'   Изменение верхнего колонтитула:
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'   Убрать параметр "Как в предыдущем разделе" (отменяется параметр по умолчанию):
    Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious
'   Установить флажок "Особый колонтитул для первой страницы":
    ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
'   Вставить текст в колонтитул:
    Selection.TypeText Text:="Привет, мир!"
'   Возврат от колонтитула к основному тексту:
    Selection.EscapeKey
End Sub

Selection.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True[False]
Selection.Sections(1).PageSetup.OddAndEvenPagesHeaderFooter = True[False]

Selection.Sections(Selection.Information(wdActiveEndSectionNumber)).PageSetup.DifferentFirstPageHeaderFooter = True[False]
Selection.Sections(Selection.Information(wdActiveEndSectionNumber)).PageSetup.OddAndEvenPagesHeaderFooter = True[False]