通过

Word) (HeaderFooter.LinkToPrevious 属性

  • 项目

如果指定页眉或页脚链接至前一节中相应的页眉或页脚，则该属性值为 True。 读/写 Boolean。

语法

expression。 LinkToPrevious

表达 返回“HeaderFooter”对象的表达式。

备注

链接页眉或页脚时，其内容与前一个页眉或页脚中的内容相同。 因为默认情况下，LinkToPrevious 属性设为 True，所以可以通过设置第一节的页眉、页脚和页码来为整个文档添加页眉、页脚和页码。 例如，下面的示例将页码添加至活动文档所有节中全部页的页眉中。

ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary).PageNumbers.Add

LinkToPrevious 属性可以分别应用于每个页眉或页脚。 例如，可将偶数页的页眉的 LinkToPrevious 属性设置为 True，而将偶数页的页脚设置为 False。

示例

此示例的第一部分创建一个包含两个部分的新文档。 第二部分为新文档中第一节和第二节中偶数页和奇数页创建唯一页眉。

Documents.Add 
With Selection 
 For j = 1 to 4 
 .TypeParagraph 
 .InsertBreak 
 .TypeParagraph 
 Next j 
End With 
With ActiveDocument 
 .Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage 
 .PageSetup.OddAndEvenPagesHeaderFooter = True 
End With 
With ActiveDocument.Sections(2) 
 With .Headers(wdHeaderFooterPrimary) 
 .LinkToPrevious = False 
 .Range.InsertBefore "Section 2 Odd Header" 
 End With 
 With .Headers(wdHeaderFooterEvenPages) 
 .LinkToPrevious = False 
 .Range.InsertBefore "Section 2 Even Header" 
 End With 
End With 
With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary) _ 
 .Range.InsertBefore "Section 1 Odd Header" 
 .Headers(wdHeaderFooterEvenPages) _ 
 .Range.InsertBefore "Section 1 Even Header" 
End With

另请参阅

HeaderFooter 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。