多个分节符 - 如何仅将页眉和页脚添加到第一节？

Question

我写了一段代码，为文档添加页眉和页脚。该文档有多个部分（分页符），我只想将页眉和页脚添加到第一页。 在代码中，我选择了第 (1) 节，但宏正在向每个节的第一页添加页眉和页脚。

你知道怎么解决吗？我试过了，不知道。代码如下：

With wordApp.ActiveDocument
    .PageSetup.DifferentFirstPageHeaderFooter = True
    .Sections(1).Footers(wdHeaderFooterFirstPage) _
    .Range.InsertBefore _
    Cells(18, i)
End With

With wordApp.ActiveDocument
    .PageSetup.DifferentFirstPageHeaderFooter = True
    .Sections(1).Headers(wdHeaderFooterFirstPage) _
    .Shapes(1).TextFrame.TextRange.Text = Cells(15, i)
End With

Answer 1

首先，我们需要解决您对术语的错误使用。分页符仅添加新页面，它们不创建部分。分节符创建了新的节。

默认情况下，新部分中的页眉和页脚链接到上一部分。当您在后面的部分之一中编辑页眉或页脚时，您可以在页眉和页脚选项卡上看到这一点。

您可以使用以下代码删除链接，该代码很旧，可以追溯到链接到上一个被称为与上一个相同

Public Sub ZapTheSAP()
   Dim sec As Section
   Dim hdrftr As HeaderFooter

   For Each sec In ActiveDocument.Sections
      For Each hdrftr In sec.Headers
         hdrftr.LinkToPrevious = False
      Next hdrftr

      For Each hdrftr In sec.Footers
         hdrftr.LinkToPrevious = False
      Next hdrftr
   Next sec
End Sub

Answer 2

您只需要：

wix