【分享成果，随喜正能量】凡事不要太過計較，發生了就選着接受，不要太過強求，因為，一切都是最好的安排！。

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

大家好，我們繼續Sections對象的屬性的講解，上節的内容中我們學習了Sections對象的Count 屬性、First 屬性、Last 屬性，在這節中我們會學習到Sections對象的PageSetup 屬性、Add 方法、Item 方法。

這個屬性返回一個PageSetup對象, 該對象與指定的文檔、區域、節、節的集合或選定内容相關聯。

語法：expression.PageSetup

其中expression 是必需的。 一個代表 "Sections" 集合的變量。

這個屬性方法返回一個Section對象，該對象代表添加到文檔中的新節。

語法：expression.Add（Range Start）

其中expression 是必需的。 一個代表 "Sections" 集合的變量。

參數：

1）Range 可選 Variant 要在其之前插入分節符的區域。 如果省略該參數，則将分節符插至文檔末尾。

2）Start 可選 Variant 要添加的分節符的類型。 可以是 WdSectionStart 常量之一。 如果省略此參數，則添加的下一頁分節符。

WdSectionStart 枚舉值：

1）wdSectionContinuous 0 “連續”分節符。

2）wdSectionEvenPage 3 “偶數頁”分節符.

3）wdSectionNewColumn 1 “新欄”分節符.

4）wdSectionNewPage 2 “新頁”分節符.

5）wdSectionOddPage 4 “奇數頁”分節符.

這個方法返回集合中的單個 Section 對象。

語法：expression.Item (Index)

其中expression 是必需的。 一個代表 "Sections" 集合的變量。

參數：

1）Index 必需Long要返回的單個對象。可以是Long , 表示單個對象的序号位置。

這節給大家講解一個實例，這個實例中會利用Section 對象的方法及屬性完成頁面設置及新節的插入。我們看下面的代碼：

Sub mynzA()

'将當前活動文檔的第一節的裝訂線設置為 36 磅（0.5 英寸）

ActiveDocument.Sections.Item(1).PageSetup.Gutter = 36

'在當前活動文檔第2段之前添加一個""連續""的分節符。

Set myRange = ActiveDocument.Paragraphs(3).Range

ActiveDocument.Sections.Add Range:=myRange, Start:=wdSectionContinuous

End Sub

代碼截圖：

代碼運行前：

代碼運行後：

今日内容回向：

1 Word中Sections對象的PageSetup 屬性、Add 方法、Item 方法的意義是什麼？

2 如何利用VBA設置節的頁面及插入新的節？

本講内容參考程序文件：Doc 008文檔.docm

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程及應用工具中：

【分享成果，随喜正能量】走到山窮水盡處，坐看雲起雲湧，把每一天，過得極緻，用得極緻，活得極緻。。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!