使用VBA更改一个标题的标题

Question

因此，在我的文档中，它从Access复制了一些表，并将它们粘贴到Word中：

' Paste into word
wd.ActiveDocument.Sections(i).Range.Select
wd.Selection.Paste

然后格式化表格，然后在末尾插入分节符：

' Insert a new section
wd.ActiveDocument.Characters.Last.Select
wd.Selection.Collapse
wd.Selection.Range.InsertBreak Type:=wdSectionBreakNextPage

然后重新开始循环：它从Access复制一个表并将其粘贴到新部分中。我正在尝试仅为此新部分更新标题，但它正在更新所有标题。

' Write to the header of this section
With wd.ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range
    .Text = Chr(10) & headerText
    .Font.Size = 18
    .Font.Name = "Tahoma"
    .Font.Bold = True
    .ParagraphFormat.SpaceBefore = 6
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With

关于我在做什么错的建议？

Answer 1

“页眉和页脚”中文本的连续性由.LinkToPrevious属性控制。可以分别为页眉和页脚的三种类型分别设置此属性。如果属性设置为“ True”，那么当前的页眉/页脚将继承以前相同类型的页眉/页脚的文本。如果将其设置为“ False”，则可以在页眉/页脚中放置其他文本。