【分享成果，随喜正能量】做人，管好嘴，守住心，怨念越多，将来的苦难也就越多。。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第八章: Sections对象和Section对象的第3节：利用VBA设置页眉和页脚
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实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】遗憾是常有，孤独是常在，生活是品尝苦味，人生便是看尽无常变幻。。
,
