【分享成果，随喜正能量】做人，管好嘴，守住心，怨念越多，将来的苦难也就越多。。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第八章: Sections对象和Section对象的第3节：利用VBA设置页眉和页脚

第三节 Section对象及其属性

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

在上一节中我们讲解的是Sections对象的PageSetup 属性、Add 方法、Item 方法。这节我们讲解的是Section对象的Footers属性、Headers属性、Range属性。

1 Section.Footers属性

这个属性返回一个HeadersFooters集合, 该集合代表指定节中的页脚。此为只读属性。

语法：expression.Footers

其中expression 是必需的。一个代表 "Section" 对象的变量。

2 Section.Headers属性

这个属性返回一个HeadersFooters集合, 该集合代表指定节的标题。此为只读属性。

语法：expression.Headers

其中expression 是必需的。一个代表 "Section" 对象的变量。

3 Section.Range属性

这个属性返回一个Range对象, 该对象代表指定对象中包含的文档部分。

语法：expression.Range

其中expression 是必需的。一个代表 "Section" 对象的变量。

4 实例：页眉页脚的添加

在本讲的实例部分，我将给大家一段代码，这个代码中将进行页眉页脚的设置，代码如下：

Sub mynzB()

Set myRange = ActiveDocument.Paragraphs(1).Range

'活动文档第1段之后插入一个分页符

With myRange

.Collapse Direction:=wdCollapseEnd

.InsertBreak Type:=wdPageBreak

End With

'向活动文档第1节中的主页脚添加一个中间对齐的页码。

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

.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight

End With

'为活动文档中第1节的第2页页眉添加居中的页码, 第一页的页码除外

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

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

End With

'为活动文档中第1节的首页页眉添加文本。

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True

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

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

.Range.Paragraphs.Alignment = wdAlignPageNumberCenter

End With

'在第3节的结尾插入文本。

Set myRange = ActiveDocument.Sections(3).Range

With myRange

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

.Collapse Direction:=wdCollapseEnd

.InsertParagraphAfter

.InsertAfter "结尾"

End With

End Sub

代码截图：

代码解读：以上代码部分，我们只对WdHeaderFooterIndex 枚举值进行解读，如下：

WdHeaderFooterIndex 枚举值：

1）wdHeaderFooterEvenPages 3 返回偶数页上的所有页眉或页脚。

2）wdHeaderFooterFirstPage 2 返回文档或节中的第一个页眉或页脚。

3）wdHeaderFooterPrimary 1 返回文档或节中除第一页外所有页上的页眉或页脚。

代码的运行效果：运行前：

代码运行后：

今日内容回向：

1 Word中Section对象的Footers属性、Headers属性、Range属性的意义是什么？

2 如何利用VBA设置页眉和页脚？

本讲内容参考程序文件：Doc 008文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：

【分享成果，随喜正能量】遗憾是常有，孤独是常在，生活是品尝苦味，人生便是看尽无常变幻。。

,