Верхний колонтитул на всех страницах, нижний колонтитул только на первой странице

Question

• 1000 не работает

Я попытался сначала вставить заголовок с отключенной другой первой страницей, а затем вставил нижний колонтитул с включенной другой первой страницей

Он работает в Word, но как макрос VBA я не могу создать его

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 = wdSeekCurrentPageFooter
Selection.TypeText Text:="ssss"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
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.TypeText Text:="ssss"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Я могу создать макрос для вставки верхнего и нижнего колонтитула на всех страницах или верхнего и нижнего колонтитула только на первой странице, с чем я борюсь, это верхний колонтитул на всех страницах и нижний колонтитул только на 1-й странице, пожалуйста, руководство

Answer 1

Это действительно очень просто. В пользовательском интерфейсе Word вы сначала добавляете свой заголовок с отключенной другой первой страницей. Затем вы добавляете и верхний и нижний колонтитулы с включенной функцией «Другая первая страница». Ваш код должен делать то же самое, но без активности экрана.

Sub AddHeaderAndFooter()
  With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Main header"
    .Headers(wdHeaderFooterFirstPage).Range.Text = "First page header"
    .Footers(wdHeaderFooterFirstPage).Range.Text = "First page footer"
    .PageSetup.DifferentFirstPageHeaderFooter = True
  End With
End Sub