【分享成果，随喜正能量】不争，是歲月賦予的智慧，人生一局棋，關于輸赢，我們總是無能為力，迷惘時，多半在局内；了悟時，人已在局外。不吵，是時光賦予的平和，遇到問題的處理方式有很多種，發怒是一種、隐忍是一種、不理會又是一種。不炫耀，是經曆賦予的謙卑，低調，是态度；不炫耀，則是一種智慧。心懷謙卑，世界才會對你友好。真正的看破紅塵是看破煩惱的虛幻，發現生命的力量，放下生活的負面情緒，讓自己再一次打起精神，鼓足勇氣，活出生活真正的突破，真正的昂揚，真正的嶄新，每一天都嶄新。

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

大家好，我們繼續段落集合Paragraphs對象屬性的講解，上一節中，我們講了段落的對齊及縮進和懸挂的設置，這節我們繼續講解其他的一些屬性。

該屬性返回一個Long , 該值代表集合中的段落數。此為隻讀屬性。

語法：expression.Count

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

該屬性返回或設置一個ParagraphFormat對象, 該對象代表指定的一個或多個段落的格式。

語法：expression.Format

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

該屬性返回一個Paragraph段落對象, 該對象代表段落集合中的最後一個項目。

語法：expression. Last

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

該屬性返回或設置指定段落或文本欄後面的間距 (以磅為單位) 的數量。

語法：expression. SpaceAfter

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

該屬性返回或設置指定段落的段前間距 (以磅為單位)。

語法：expression. SpaceBefore

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

下面我們看看上述屬性的一些應用實例，在下面的實例中我們将首先顯示活動文檔的段數，然後将活動文檔的所有段落靠左對齊，将活動文檔中所有段落的段後間距設置為12 磅，将所有段落的段前間距設置為12磅，最後将活動文檔中的最後一個段落設置為右對齊。

我們先看看代碼：

Sub mynzA()

'顯示活動文檔的段數

MsgBox "當前活動文檔中的段落數為：" & ActiveDocument.Paragraphs.Count

'以下示例将活動文檔的所有段落靠左對齊

ActiveDocument.Paragraphs.Format.Alignment = wdAlignParagraphLeft

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

ActiveDocument.Paragraphs.SpaceAfter = 12

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

ActiveDocument.Paragraphs.SpaceBefore = 12

'将活動文檔中的最後一個段落設置為右對齊

ActiveDocument.Paragraphs.Last.Alignment = wdAlignParagraphRight

End Sub

代碼截圖：

代碼解讀：（略）

代碼的運行，在代碼運行前，我們先看看當前文檔的界面：

代碼運行後：

代碼運行後：

今日内容回向：

1 什麼是段落集合對象的Count Format等屬性？

2 什麼是段落集合對象的SpaceAfter SpaceBefore屬性？

本講内容參考程序文件：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每日頭條，我们将持续为您更新最新资讯!