利用VBA设置页眉和页脚

发布网友发布时间：2024-10-23 06:14

共1个回答

热心网友时间：2024-11-04 04:41

《VBA之Word应用》，第八套教程，专讲VBA在Word中的应用，围绕“面向对象编程”讲解，帮助大家认识Word中VBA的对象及其属性、方法，通过实例让大家感受到VBA在Word中的妙处。今日内容为第八章：Sections对象和Section对象的第3节，专注于利用VBA设置页眉和页脚。

Section对象，代表所选内容、范围或文档中的一节，是Sections集合的成员。Sections集合包含所选内容、范围或文档中的所有各节。

在上一节中，我们探讨了Sections对象的PageSetup属性、Add方法、Item方法。这一节，我们将深入了解Section对象的Footers属性、Headers属性、Range属性。

Section.Footers属性返回一个HeadersFooters集合，代表指定节中的页脚。此属性为只读。Section.Headers属性返回一个HeadersFooters集合，代表指定节的标题。此属性同样为只读。而Section.Range属性则返回一个Range对象，代表指定对象中包含的文档部分。

接下来，我们通过一段代码实例，演示如何使用VBA设置页眉和页脚。首先，我们活动文档的第1段之后插入一个分页符，接着在活动文档第1节的主页脚添加中间对齐的页码。然后，为活动文档中第1节的第2页页眉添加居中的页码，但不包括第一页。最后，为活动文档中第1节的首页页眉添加文本。代码如下：

Sub mynzB()

Set myRange = ActiveDocument.Paragraphs(1).Range

With myRange

.Collapse Direction:=wdCollapseEnd

.InsertBreak Type:=wdPageBreak

End With

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight

End With

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)

.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=False

End With

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)

.Range.InsertAfter ("精选阅读")

.Range.Paragraphs.Alignment = wdAlignPageNumberCenter

End With

Set myRange = ActiveDocument.Sections(3).Range

With myRange

.MoveEnd Unit:=wdCharacter, Count:=-1

.Collapse Direction:=wdCollapseEnd

.InsertParagraphAfter

.InsertAfter "结尾"

End With

End Sub

这段代码演示了如何设置页眉和页脚，例如在页脚添加页码，页眉添加文本，以及在不同页面添加不同内容。

理解了Section对象的属性和方法后，你将能更灵活地运用VBA在Word中进行高级操作。记得，实践出真知，多尝试不同的代码和设置，你会逐渐掌握并熟练运用这些功能。