利用VBA设置页眉和页脚

　　【 分享成果，随喜正能量】做人，管好嘴，守住心，怨念越多，将来的苦难也就越多…
　　《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实践经验，全部浓缩在下面的各个教程及应用工具中：
　　【 分享成果，随喜正能量】遗憾是常有，孤独是常在，生活是品尝苦味，人生便是看尽无常变幻…