Нашел решение данной проблемы:
Убрать параметр "Как в предыдущем разделе" (отменяется параметр по умолчанию):
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
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.