【分享成果，随喜正能量】不急于擁有，也不刻意去追求，努力過好當下，順其自然總會遇見。人需肯自渡，我助之；無果，我亦拈花靜候。

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容第六章 “Word中的Range對象（下）”第1節：VBA插入文本及分頁符

該方法将插入分頁符、分欄符或分節符。

語法：expression.InsertBreak(Type)

其中expression 是必需的，是一個代表Range對象的變量

參數：Type 可選Variant 要插入的分隔符的類型。可以是WdBreakType常量之一。如果省略，則默認值為wdPageBreak。

• 當插入分頁符或分欄符時，範圍将被中斷。 如果不想替換該範圍，可以在使用 InsertBreak 方法之前使用Collapse方法。當您插入一個分節符時，分節符被插在範圍前面。
• 根據您選擇或安裝的語言支持（如，美國英語）的不同，以上列出的某些常量可能不可用。

WdBreakType 的枚舉值：

1）wdColumnBreak 8 插入點處的分欄符

2）wdLineBreak 6 換行符

3）wdLineBreakClearLeft 9 換行符

4）wdLineBreakClearRight 10 換行符

5）wdPageBreak 7 插入點處的分頁符

6）wdSectionBreakContinuous 3 新節不包含相應分頁符

7）wdSectionBreakEvenPage 4 使下一節從下一偶數頁開始的分節符。 如果分節符落入偶數頁，則 Word 将下一奇數頁留為空白

8）wdSectionBreakNextPage 2 分節符在下一頁

9）wdSectionBreakOddPage 5 使下一節從下一奇數頁開始的分節符。 如果分節符落入奇數頁，則 Word 将下一偶數頁留為空白

10）wdTextWrappingBreak 11 結束當前行，并強制文字在圖片、表格或其他項目的下方繼續。文字将在下一個空行（且該空行不包含與左邊距或右邊距對齊的表格）上繼續

下面我們仍是結合一個實例給大家講解一下上述各個方法的應用，這段代碼中，首先在文檔前插入一個新的段落，段落添加文本；然後在某個段落之後添加文本；之後要求用戶輸入某個詞語并添加到一個固定的位置；最後給文檔的最後段落分頁處理。我們看下面代碼：

Sub mynz()

[代碼見教程]

End Sub

代碼截圖：

代碼解讀：

1） Set myDoc = ActiveDocument 這句代碼是定義myDoc對象

2） With myDoc.Content

.InsertParagraphBefore

.InsertBefore "藤野先生"

End With

以上代碼在文檔前插入一個新的段落，段落添加文本“藤野先生”

3）Set myRange = myDoc.Range(myDoc.Paragraphs(2).Range.Start, myDoc.Paragraphs(2).Range.End - 1)

myRange.InsertAfter "【初識藤野先生】"

以上代碼在當前文檔的第一個段落後面添加文本【初識藤野先生】，注意這裡是Paragraphs(2)，因為是在上面已經添加了一個段落。

4） myDoc.Content.InsertAfter "【師表風範】"

以上代碼在當前活動文檔的最後插入【師表風範】

5）UU = InputBox("記入自己第三段的感想詞語")

With ActiveDocument.Paragraphs(3).Range

.InsertAfter "詞語" & Chr(9) & UU

.InsertParagraphAfter

End With

以上代碼首先要求用戶輸入一個詞語，這個詞語會添加在Paragraphs(3).Range，但要注意是添加在了段落标識符的前面，随後又加入了一個段落标識。

6）Set myRange = myDoc.Paragraphs(myDoc.Paragraphs.Count - 1).Range

With myRange

.Collapse Direction:=wdCollapseEnd

.InsertBreak Type:=wdPageBreak

End With

以上代碼在活動文檔倒數第二段之後插入一個分頁符，也就是将最後一段分頁。

最後我們看一下代碼的運行效果，代碼運行前：

代碼運行後：

今日内容回向：

1 Word中Range對象的InsertBefore 方法、InsertAfter 方法、InsertBreak 方法的意義是什麼？

2 如何利用VBA插入文本及分頁設置？

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

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

【分享成果，随喜正能量】世亦不塵，海亦不苦。所謂的煩惱，不過是庸人自擾。人生短短數十載，所有愛恨得失，聚散沉浮，最終都會化作過眼雲煙。生活這道題，無論怎麼解都會有遺憾，與其計較糾纏，不如轉身離開。人生下半場，放下是一種修行，算了是一種智慧。

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