Vba 所有页面的页眉，仅第一页的页脚

我基本上是一名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

如果是ActiveWindow.View.split，则
活动窗口。窗格（2）。关闭
如果结束
如果ActiveWindow.ActivePane.View.Type=wdNormalView或ActiveWindow_
ActivePane.View.Type=wdOutlineView然后
ActiveWindow.ActivePane.View.Type=wdPrintView
如果结束
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter
Selection.TypeText文本：=“ssss”
ActiveWindow.ActivePane.View.SeekView=WDSeekIndocument
如果ActiveWindow.View.SplitSpecial WDPaneOne，则
活动窗口。窗格（2）。关闭
如果结束
如果ActiveWindow.ActivePane.View.Type=wdNormalView或ActiveWindow_
ActivePane.View.Type=wdOutlineView然后
ActiveWindow.ActivePane.View.Type=wdPrintView
如果结束
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
Selection.TypeText文本：=“ssss”
ActiveWindow.ActivePane.View.SeekView=WDSeekIndocument

---

我可以创建一个宏，在所有页面中插入页眉和页脚，或者只在第一页中插入页眉和页脚，我正在努力的是在所有页面上插入页眉，只在第一页中插入页脚，请指导，这真的很简单。在Word UI中，首先添加标题，并禁用不同的首页。然后，添加启用了不同首页的页眉和页脚。您的代码也需要这样做，但是没有所有的屏幕活动

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

---

我尝试先插入禁用不同首页的页眉，然后插入启用不同首页的页脚。这更好，现在请解释“我无法创建”的含义录制的宏不起作用，我可以创建一个宏来插入所有页面的页眉和页脚，或者只插入第一页的页眉和页脚，我正在努力的是所有页面的页眉和只插入第一页的页脚，请指导