【分享成果，随喜正能量】走正确的路，放無心的手，結有道之朋，斷無義之友，飲清淨之茶，戒色花之酒，開方便之門，閉是非之口。别再關心靈魂了，那是神明的事。你所能做的，是些小事情，諸如熱愛時間，思念母親，靜悄悄地做人，像早晨一樣清白。

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

大家好，我們這講繼續文檔對象的學習，這講的内容仍是文檔對象屬性的學習。對于對象而言，認識他最好途徑就是掌握它的本質及特征，這就是對象屬性的範疇。

這個屬性會返回一個字符串，表示文檔的名稱，包括路徑。 此為隻讀屬性。

語法：expression.FullName

其中：expression 代表一個 Document對象

這個屬性返回到文檔的磁盤路徑或 Web 路徑。是一個隻讀的字符串。

語法：expression.Path

其中：expression 代表一個 Document對象

示例代碼：

Sub mynzD()

Dim myStr As String

myStr = ActiveDocument.Path & Application.PathSeparator & ActiveDocument.Name

MsgBox myStr

End Sub

• 使用 PathSeparator 屬性可以添加字符來分隔文件夾和驅動器号

代碼的運行結果：

這個屬性返回一個Sentences集合, 該集合代表文檔中的所有句子。此為隻讀屬性。

語法：expression. Sentences

其中：expression 代表一個 Document對象

代碼示例：

這裡的代碼我将展現給大家一個實例，這個實例也是之前的一些知識點的總結，我們首先要複制當前文檔的第一句，然後删除當前文檔的最後一句。最後，我們将複制的第一句粘貼到文檔的最後。

我們先看看我給出的代碼：

Sub mynzE()

ActiveDocument.Sentences(1).Copy

ActiveDocument.Sentences.Last.Delete

If ActiveDocument.Bookmarks.Exists("TTTT") = True Then

ActiveDocument.Bookmarks("TTTT").Select

Selection.Paste

End If

End Sub

代碼截圖：

代碼講解：

1） ActiveDocument.Sentences(1).Copy 這句代碼是複制活動文檔中的第一句。

2) ActiveDocument.Sentences.Last.Delete 這句代碼是删除當前文檔的最後一句。

3) If ActiveDocument.Bookmarks.Exists("TTTT") = True Then 這句代碼是測試一下文檔中是否有書簽“TTTT”。

4) ActiveDocument.Bookmarks("TTTT").Select 這句代碼是将光标置于書簽“TTTT”處。

5) Selection.Paste 将複制的内容粘貼到當前光标處。

代碼的測試效果：

我們先在當前文檔的最後添加一個書簽“TTTT”,如圖：

代碼運行後：

從上述的代碼我們看到當前文檔的最後一句已經被删除，同時第一句被粘貼到了文檔的最後了。

這個屬性返回一個Sections集合, 該集合代表指定文檔中的節。 此為隻讀屬性。

語法：expression. Sections

其中：expression 代表一個 Document對象

這個屬性返回一個Shapes集合，該集合代表指定文檔中的所有Shape對象。此為隻讀屬性。

語法：expression.Shapes

其中：expression 代表一個 Document對象

今日内容回向：

1 文檔對象的FullName、Path、Sentences、Sections、Shapes屬性的意義是什麼？

2 如何獲得文檔的路徑及文檔的名稱？

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