Vann始终使用多个部分来创建文档。在这些文档中添加页眉或页脚时，“链接到上一页”

设置始终处于打开状态。 Van想知道默认情况下是否有办法关闭设置。他很少（如果有的话）使用它，并且一直更改它是一件麻烦的事。在处理文档时，他还必须记住要检查的另一件事。

无法在Word本身中为“链接到上一个”设置指定默认设置。但是，您可以更改在文档中添加分隔符的方式。如果通过宏执行此操作，则该宏可以轻松地为新添加的部分关闭“链接到上一个”设置。这是一种快速的方法：

Sub AddBreak()

Dim iSec As Integer

Selection.InsertBreak Type:=wdSectionBreakNextPage

iSec = Selection.Information(wdActiveEndSectionNumber)

With ActiveDocument.Sections(iSec)

.Headers(wdHeaderFooterPrimary).LinkToPrevious = False         .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False         .Footers(wdHeaderFooterPrimary).LinkToPrevious = False         .Footers(wdHeaderFooterEvenPages).LinkToPrevious = False         .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False     End With End Sub
InsertBreak方法实际上插入中断。在这种情况下，这是下一页的中断。您可以通过简单地将wdSectionBreakNextPage枚举更改为以下其他类型的中断之一来指定不同类型的中断：

wdSectionBreakContinuous wdSectionBreakEvenPage * wdSectionBreakOddPage

然后，宏将iSec设置为等于当前节的索引号。

然后在With结构中使用它为所有三种类型的页眉和所有三种类型的页脚设置LinkToPrevious属性。

如果愿意，可以一次更改文档所有部分中所有页眉和页脚的LinkToPrevious属性：

Sub ChangeAll()

Dim s As Section

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是世界上最流行的文字处理软件。）本技巧（13502）适用于Microsoft Word 2007、2010、2013和2016。