Paul是一名技术作家，他创建了一些文档，这些文档对为每个文档部分设置新的页眉和页脚有无限的要求。连续需要显示正确的对话框并清除页眉和页脚的“链接到上一个”复选框是很痛苦的。保罗想知道是否可以通过一种方法来设置默认值，以在创建节时取消页眉和页脚的关联。他希望它是相反的方式，他需要在需要时显式设置“到先前的链接”。

无法通过Word中的设置来处理此问题。该设置似乎总是返回到“链接到上一个”。相反，您将需要使用宏来完成所需的变通方法。创建一个宏将创建一个新的分节符并取消链接页眉和页脚，这是一个相对简单的任务。

Sub AddNewSection()

Selection.InsertBreak Type:=wdSectionBreakNextPage     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     Selection.HeaderFooter.LinkToPrevious = False

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter     Selection.HeaderFooter.LinkToPrevious = False     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub

快速访问工具栏中，或定义运行它的快捷键。该宏添加了“下一页”分节符；如果要使用其他类型的分节符，只需将wdSectionBreakNextPage替换为分节符的其他常量之一：wdSectionBreakContinuous（连续分节符），wdSectionBreakEvenPage（偶数页分节符）或wdSectionBreakOddPage（奇数-分页符）。

相反，如果您只是想更改所有“到上一个链接”

您可以使用其他宏方法来设置文档中所有现有部分的设置。

Sub UnlinkAllHeadersFooters()

Dim s As Section     On Error Resume Next

For Each s In ActiveDocument.Sections         s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False         s.Footers(wdHeaderFooterPrimary).LinkToPrevious = False     Next s End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13401）适用于Microsoft Word 2007、2010和2013。