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

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容第八章: Sections對象和Section對象的第3節：利用VBA設置頁眉和頁腳

Section 對象，代表所選内容、範圍或文檔中的一節。 Section對象是Sections集合的成員。Sections 集合包含所選内容、範圍或文檔中的所有各節。

在上一節中我們講解的是Sections對象的PageSetup 屬性、Add 方法、Item 方法。這節我們講解的是Section對象的Footers屬性、Headers屬性、Range屬性。

這個屬性返回一個HeadersFooters集合, 該集合代表指定節中的頁腳。此為隻讀屬性。

語法：expression.Footers

其中expression 是必需的。一個代表 "Section" 對象的變量。

這個屬性返回一個HeadersFooters集合, 該集合代表指定節的标題。此為隻讀屬性。

語法：expression.Headers

其中expression 是必需的。一個代表 "Section" 對象的變量。

這個屬性返回一個Range對象, 該對象代表指定對象中包含的文檔部分。

語法：expression.Range

其中expression 是必需的。一個代表 "Section" 對象的變量。

在本講的實例部分，我将給大家一段代碼，這個代碼中将進行頁眉頁腳的設置，代碼如下：

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實踐經驗，全部濃縮在下面的各個教程及應用工具中：

【分享成果，随喜正能量】遺憾是常有，孤獨是常在，生活是品嘗苦味，人生便是看盡無常變幻。。