所有页面的页眉，仅首页的页脚答案

【问题标题】：Header on all pages, footer in first page only所有页面的页眉，仅首页的页脚
【发布时间】：2020-07-12 19:46:02
【问题描述】：

我基本上是一名 Perl 开发人员，不熟悉 VBA，如何在word文档的所有页面中仅在第一页的旁边插入页眉，

我尝试录制宏，但它不起作用

我尝试先在禁用不同首页的情况下插入页眉，然后在启用不同首页的情况下插入页脚

它在 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

我可以创建一个宏来在所有页面中插入页眉和页脚或仅在第一页中插入页眉和页脚，我正在努力的是所有页面上的页眉和第一页中的页脚，请指导

【问题讨论】：

我尝试先在禁用不同首页的情况下插入页眉，然后在启用不同首页的情况下插入页脚
好的，现在请解释一下“我无法创建它”是什么意思
录制的宏没有发挥作用，我可以创建一个宏来在所有页面中插入页眉和页脚或仅在第一页中插入页眉和页脚，我正在努力的是所有页面上的页眉和页脚仅在第一页，请指导

标签： vba ms-word

【解决方案1】：

真的很简单。在 Word UI 中，您首先添加标题并禁用不同的首页。然后添加 both 页眉和页脚并启用不同的首页。您的代码需要做同样的事情，但没有所有的屏幕活动。

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

【讨论】：