【分享成果，随喜正能量】如果你想任性，那就先學會承受，能承受後果才可以任性。如果你想獨立，那就先學會堅強，才可以獨立。如果你想放肆的愛，那就先學會遺忘，隻有能忘掉失戀痛楚，才可以大膽愛。你可以去做一切事情，但前提是不會為結果傷悲。一個人真正的強大，并非看他能做什麼，而是看他能承擔什麼。把因果看透了，其實，這個世界上沒有什麼吃虧的人，也沒有什麼占便宜的人，有得也有失，得失平衡；無得也無失，得失兩空。

《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向對象編程”講解，首先讓大家認識Word中VBA的對象，以及對象的屬性、方法，然後通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日内容是第四章“段落集合Paragraphs對象及段落Paragraph對象”第3節：段落集合Paragraphs對象中段落的添加及縮進設置。

大家好，我們繼續段落集合Paragraphs對象的講解，這節的内容是這個對象的方法。我們知道，方法是對象自身的動作，那麼這個段落集合Paragraphs對象又有哪些自身的動作呢？

這個方法返回一個段落對象, 該對象代表添加到文檔中的新的空白段落。

語法：expression.Add (Range)

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

參數：

Range 可選 Variant 要在其前添加新段落的區域。新的段落不替換該區域。

• 如果不指定 Range，則将新段落添加到選定内容或區域之後，或者添加到文檔最後，具體情況取決于 expression 的設置。

示例：

1）在選定内容之後添加一個段落：Selection.Paragraphs.Add

2）在選定内容中第一段之前添加一個段落标記：Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range

3）在活動文檔第二段之前添加一個段落标記：ActiveDocument.Paragraphs.Add _

Range:=ActiveDocument.Paragraphs(2).Range

4）在活動文檔的末尾添加一個新的段落标記：ActiveDocument.Paragraphs.Add

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

語法：expression.Item (Index)

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

參數：

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

這個方法清除指定段落前的段落間距。

語法：expression. CloseUp

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

示例：以下兩行代碼都可以當前活動文檔的的段落間距

1) ActiveDocument.Paragraphs.CloseUp

2) ActiveDocument.Paragraphs.SpaceBefore = 0

這個方法将一個或多個段落縮進指定的字符數。

語法：expression. IndentCharWidth( Count )

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

參數：

Count 必需 Integer 指定段落要縮進的字符數。

• 此方法等效于單擊 “格式” 工具欄上的 “增加縮進量” 按鈕。

這個方法将一個或多個段落的首行縮進指定的字符數

語法：expression.IndentFirstLineCharWidth(Count)

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

參數：

Count 必需 Integer 每個指定段落的首行要縮進的字符數。

下面我們來看一個實例，這個實例中我們将利用各種方法調試段落的縮進方式、段落間距。我們先看下面的代碼：

Sub mynzB()

'在活動文檔第一段之前添加一個段落标記。

ActiveDocument.Paragraphs.Add _

Range:=ActiveDocument.Paragraphs(1).Range

'将活動文檔中所有段落的段前間距設置為 12 磅

ActiveDocument.Paragraphs.SpaceBefore = 12

'删除段前間距的設置

If MsgBox("您是否要清除段間距的設置？", vbYesNo) = vbYes Then

ActiveDocument.Paragraphs.CloseUp

End If

'将活動文檔中所有段落的首行縮進 2 個字符

ActiveDocument.Paragraphs.IndentFirstLineCharWidth 2

'将活動文檔的所有段落縮進 2 個字符

ActiveDocument.Paragraphs.IndentCharWidth 1

End Sub

代碼截圖：

代碼解讀：（略）

代碼的運行，我們仍是先看文檔的最初截圖：

代碼運行後：

今日内容回向：

1 段落集合對象的Add方法、Item方法、CloseUp方法、IndentCharWidth方法和IndentFirstLineCharWidth方法的意義是什麼？

2 如何利用上述方法設置文檔？

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

• 我根據自己多年VBA實際利用經驗，推出了八部VBA專門教程。第1套教程：VBA代碼解決方案 ；第2套教程：VBA數據庫解決方案；第3套教程：VBA數組與字典解決方案；第4套教程：VBA代碼解決方案之視頻（第一套的視頻講解）；第5套教程：VBA中類的解讀和利用；第6套教程：VBA信息獲取與處理；第7套教程：VBA之EXCEL應用；第8套教程：VBA之Word應用（最新）。上述教程的學習順序：

① 7→1→3→2→6→5或者7→4→3→2→6→5 ② 7→8

• 第一套：VBA代碼解決方案 是VBA中各個知識點的講解，教程共147講，覆蓋絕大多數的VBA知識點，提供的程序文件更是一座不可多得的代碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程序文件通過32位和64位兩種OFFICE系統測試。
• 第二套：VBA數據庫解決方案 數據庫是數據處理的專業利器，教程中詳細介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，适合中級人員的學習。目前這套教程提供的是修訂第一版教程，程序文件通過32位和64位兩種OFFICE系統測試。
• 第三套：VBA數組與字典解決方案 數組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學習，是初級及中級人員代碼精進的手段。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統測試。
• 第四套：VBA代碼解決方案之視頻 是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的視頻講解，視頻更易接受。
• 第五套：VBA中類的解讀和利用 這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統測試。
• 第六套教程：VBA信息獲取與處理，這是一部高級教程，涉及範圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應用程序信息獲得、随機信息的利用、電子郵件的發送、VBA互聯網數據抓取、VBA延時操作，剪切闆應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數等等内容。程序文件通過32位和64位兩種OFFICE系統測試。
• 第七套教程：VBA之EXCEL應用 這是一部初級教程這部教程共三冊，從從創建宏、對話框、工作簿和工作表對象、單元格對象等基礎内容講起，到循環結構、錯誤處理、字符串操作、日期和時間、事件、數組應用，函數過程等方面，一直講解到控件和窗體對象的應用都是我們提高自己EXCEL水平的必須。
• 第八套教程：VBA之WORD應用 是圍繞“面向對象編程”展開的講解，讓大家充分認識Word中VBA的對象，以及對象的屬性、方法及利用。教程共分三冊，十六章，其中前十五章是各種對象屬性、方法的講解，每節都有專門的實例說明這些屬性方法的具體應用，最後一章是結和具體應用場景的講解，詳細講解了二十八個實際工作中有代表性的實例，緊扣word數據的批量處理，發揮VBA的長處。本套教程實例衆多，大家可以拿來即用，或者修正後加以利用。由于這套教程是圍繞“面向對象編程”來展開，建議大家先學《VBA之Excel應用》，對VBA中的對象、屬性、方法、事件有一定認識後再來學習這套教程。

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