【分享成果，隨喜正能量】如果你想任性，那就先學會承受，能承受後果才可以任性。如果你想獨立，那就先學會堅強，才可以獨立。如果你想放肆的愛，那就先學會遺忘，只有能忘掉失戀痛楚，才可以大膽愛。你可以去做一切事情，但前提是不會為結果傷悲。一個人真正的強大，並非看他能做什麼，而是看他能承擔什麼。把因果看透了，其實，這個世界上沒有什麼吃虧的人，也沒有什麼佔便宜的人，有得也有失，得失平衡；無得也無失，得失兩空。
《VBA之Word應用》，是我推出第八套教程，教程是專門講解VBA在Word中的應用，圍繞“面向物件程式設計”講解，首先讓大家認識Word中VBA的物件，以及物件的屬性、方法，然後透過例項讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日內容是第四章“段落集合Paragraphs物件及段落Paragraph物件”第3節：段落集合Paragraphs物件中段落的新增及縮排設定。
第三節 段落集合Paragraphs物件的方法（一）
大家好，我們繼續段落集合Paragraphs物件的講解，這節的內容是這個物件的方法。我們知道，方法是物件自身的動作，那麼這個段落集合Paragraphs物件又有哪些自身的動作呢？
1 Paragraphs。Add 方法
這個方法返回一個段落物件， 該物件代表新增到文件中的新的空白段落。
語法：expression。Add （Range）
其中expression 是必需的。一個代表 “段落” 集合的變數。
引數：
Range 可選 Variant 要在其前新增新段落的區域。新的段落不替換該區域。
l如果不指定 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
2 Paragraphs。Item 方法
這個方法返回集合中的單個段落物件。
語法：expression。Item （Index）
其中expression 是必需的。一個代表 “段落” 集合的變數。
引數：
Index 必需 Long 要返回的單個物件。 可以是Long ， 表示單個物件的序號位置。
3 Paragraphs。CloseUp 方法
這個方法清除指定段落前的段落間距。
語法：expression。 CloseUp
其中expression 是必需的。一個代表 “段落” 集合的變數。
示例：以下兩行程式碼都可以當前活動文件的的段落間距
1） ActiveDocument。Paragraphs。CloseUp
2） ActiveDocument。Paragraphs。SpaceBefore = 0
3 Paragraphs。IndentCharWidth 方法
這個方法將一個或多個段落縮排指定的字元數。
語法：expression。 IndentCharWidth（ Count ）
其中expression 是必需的。一個代表 “段落” 集合的變數
引數：
Count 必需 Integer 指定段落要縮排的字元數。
l此方法等效於單擊 “格式” 工具欄上的 “增加縮排量” 按鈕。
4 Paragraphs。IndentFirstLineCharWidth 方法
這個方法將一個或多個段落的首行縮排指定的字元數
語法：expression。IndentFirstLineCharWidth（Count）
其中expression 是必需的。一個代表 “段落” 集合的變數
引數：
Count 必需 Integer 每個指定段落的首行要縮排的字元數。
5 段落集合方法的應用例項
下面我們來看一個例項，這個例項中我們將利用各種方法除錯段落的縮排方式、段落間距。我們先看下面的程式碼：
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
l我根據自己多年VBA實際利用經驗，推出了八部VBA專門教程。第1套教程：VBA程式碼解決方案 ；第2套教程：VBA資料庫解決方案；第3套教程：VBA陣列與字典解決方案；第4套教程：VBA程式碼解決方案之影片（第一套的影片講解）；第5套教程：VBA中類的解讀和利用；第6套教程：VBA資訊獲取與處理；第7套教程：VBA之EXCEL應用；第8套教程：VBA之Word應用（最新）。上述教程的學習順序：
713265或者743265 78
n第一套：VBA程式碼解決方案 是VBA中各個知識點的講解，教程共147講，覆蓋絕大多數的VBA知識點，提供的程式檔案更是一座不可多得的程式碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程式檔案透過32位和64位兩種OFFICE系統測試。
n第二套：VBA資料庫解決方案 資料庫是資料處理的專業利器，教程中詳細介紹了利用ADO連線ACCDB和EXCEL的方法和例項操作，適合中級人員的學習。目前這套教程提供的是修訂第一版教程，程式檔案透過32位和64位兩種OFFICE系統測試。
n第三套：VBA陣列與字典解決方案 陣列和字典是VBA的精華，字典是VBA程式碼水平提高的有效手段，值得深入的學習，是初級及中級人員程式碼精進的手段。目前這套教程提供的版本是修訂第一版，程式檔案透過32位和64位兩種OFFICE系統測試。
n第四套：VBA程式碼解決方案之影片 是專門面向初學者的影片講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的影片講解，影片更易接受。
n第五套：VBA中類的解讀和利用這是一部高階教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程式檔案透過32位和64位兩種OFFICE系統測試。
n第六套教程：VBA資訊獲取與處理，這是一部高階教程，涉及範圍更廣，實用性更強，面向中高階人員。教程共二十個專題，包括：跨應用程式資訊獲得、隨機資訊的利用、電子郵件的傳送、VBA網際網路資料抓取、VBA延時操作，剪下板應用、Split函式擴充套件、工作表資訊與其他應用互動，FSO物件的利用、工作表及資料夾資訊的獲取、圖形資訊的獲取以及定製工作表資訊函式等等內容。程式檔案透過32位和64位兩種OFFICE系統測試。
n第七套教程：VBA之EXCEL應用 這是一部初級教程這部教程共三冊，從從建立宏、對話方塊、工作簿和工作表物件、單元格物件等基礎內容講起，到迴圈結構、錯誤處理、字串操作、日期和時間、事件、陣列應用，函式過程等方面，一直講解到控制元件和窗體物件的應用都是我們提高自己EXCEL水平的必須。
n第八套教程：VBA之WORD應用是圍繞“面向物件程式設計”展開的講解，讓大家充分認識Word中VBA的物件，以及物件的屬性、方法及利用。教程共分三冊，十六章，其中前十五章是各種物件屬性、方法的講解，每節都有專門的例項說明這些屬性方法的具體應用，最後一章是結和具體應用場景的講解，詳細講解了二十八個實際工作中有代表性的例項，緊扣word資料的批次處理，發揮VBA的長處。本套教程例項眾多，大家可以拿來即用，或者修正後加以利用。由於這套教程是圍繞“面向物件程式設計”來展開，建議大家先學《VBA之Excel應用》，對VBA中的物件、屬性、方法、事件有一定認識後再來學習這套教程。