【分享成果，順熙正能量】用仙人的慧眼看世界，都是菩薩。水和月亮忘記了渾然一體，珍珠色交融融化也沒有障礙，饑餓的飯菜每天都是好日子，山石點頭，處處充滿愛和意思。翠竹黃華都是佛性的，白云流動的水是善心的。川江有水川江月，萬里無云萬里無云。

《VBA之Word應用》，我推出的第八個教程，教程專門講解VBA在Word中的應用，以“面向?qū)ο缶幊獭睘橹行模紫仍赪ord中了解VBA的對象和對象的屬性、方法，然后通過實例感受Word VBA的妙處，本教程共3卷16章，今天是3

第9節(jié)文檔文檔對象方法(2)

大家好，本節(jié)繼續(xù)介紹Document對象方法。本節(jié)的內(nèi)容是第7節(jié)的持續(xù)內(nèi)容，對所有對象來說，這是我們在代碼中使用的高效工具。(大衛(wèi)亞設)。

1 Document。Save方法

此方法保存指定的文檔。

語法：ex

其中expression表示Document對象

如果為True，Word將自動保存所有文檔。如果為False，則Word會提示您保存自上次保存以來已更改的每個文檔。

2 Document。SaveAs2方法

以新名稱或格式保存指定的文檔。此方法的某些參數(shù)與“另存為”對話框(“文件”選項卡)中的選項相對應。

語法：

Exas2(文件名、文件類型、lock comments、password、addtorecentfiles、write password、readonly recommended save forms data)

其中expression表示Document對象

參數(shù)：

1)FileName可選Variant文檔的名稱。默認值為當前文件夾和文件名。如果您從未儲存過文件，則會使用預設名稱(例如Doc1.doc)。如果已存在具有指定文件名的文檔，則復蓋該文檔，并且在復蓋之前不提示用戶。

2)文件類型可選Variant文檔的存儲類型?？梢允侨魏蜽dSaveFormat常量。若要以其它格式保存文檔，請為FileConverter對象的SaveFormat屬性指定相應的值。

WdSaveFormat常量的枚舉值如下：

1)wdformatdocument 0 Microsoft office word 97-2003 binary file format .

2)wdformatdostext 4 Microsoft dos text format。

3)wdformatdostextlinebreaks 5 Microsoft dos text with line breaks preserved .

4)wdformatencodedtext 7 encoded text format。

5)wdformatfilteredhtml 10 filtered html format。

6)wdformatflatxml 19 open XML file format saved as a single XML file。

7)wdformatflatxmlmacroenabled 20開放式XML文件格式with macros enabled saved as a single XML文件.

8)wdformatflatxmltemplate 21 open XML template format saved as a XML single file。

9)wdformatflatxmltemplatemacroenabled 22 open XML template format with macros enabled saved as a single XML file。

10) wdformatopendocumenttext 23開放文檔文本格式。

11) wdformathtml 8標準html格式。

12) wdformatrtf6富文本格式(rtf)。

13)wdFormatStrictOp

enXMLDocument 24 Strict Open XML document format.

14）wdFormatTemplate 1 Word template format.

15）wdFormatText 2 Microsoft Windows text format.

16）wdFormatTextLineBreaks 3 Windows text format with line breaks preserved.

17）wdFormatUnicodeText 7 Unicode text format.

18）wdFormatWebArchive 9 Web archive format.

19）wdFormatXML 11 Extensible Markup Language (XML) format.

20）wdFormatDocument97 0 Microsoft Word 97 document format.

21）wdFormatDocumentDefault 16 Word default document file format. For Word, this is the DOCX format.

22）wdFormatPDF 17 PDF format.

23）wdFormatTemplate97 1 Word 97 template format.

24）wdFormatXMLDocument 12 XML document format.

25）wdFormatXMLDocumentMacroEnabled 13 XML document format with macros enabled.

26）wdFormatXMLTemplate 14 XML template format.

27）wdFormatXMLTemplateMacroEnabled 15 XML template format with macros enabled.

28）wdFormatXPS 18 XPS format.

3 Document.SaveAs2 方法的利用實例

這里我給大家介紹一段代碼，將當前文檔保存為一個文本文件。我們看下面的代碼：

Sub mynzH()

Dim myDoc As String

myDoc = Ac

i = InStrRev(myDoc, ".")

If i = 0 Then

myDoc = InputBox("請輸入您的文件名。")

Else

myDoc = Left(myDoc, i - 1)

myDoc = myDoc & ".txt"

End If

Ac FileName:=myDoc, FileFormat:=wdFormatText

End Sub

代碼截圖：

下面我們看代碼的解讀：

1) myDoc = Ac 這段代碼將當前活動文檔名字存儲在一個字符串的變量中。

2） i = InStrRev(myDoc, ".")

If i = 0 Then

myDoc = InputBox("請輸入您的文件名。")

如果文件名是不存在的，那么就令用戶輸入一個新的文件名。

3） myDoc = Left(myDoc, i - 1)

myDoc = myDoc & ".txt"

取得后綴為.txt的文件名

4） Ac FileName:=myDoc, FileFormat:=wdFormatText

保存文件，注意這個時候的文件是往往保存在“文檔”的文件夾下面。

文檔的運行效果：

今日內(nèi)容回向：

1 文檔對象的Save方法和SaveAs2 方法的意義是什么？

2 如何利用SaveAs2 方法將word文件保存為文本文件？

本講內(nèi)容參考程序文件：Doc 003文檔.docm

• 我根據(jù)自己多年VBA實際利用經(jīng)驗，推出了八部VBA專門教程。第1套教程：VBA代碼解決方案 ；第2套教程：VBA數(shù)據(jù)庫解決方案；第3套教程：VBA數(shù)組與字典解決方案；第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講，覆蓋絕大多數(shù)的VBA知識點，提供的程序文件更是一座不可多得的代碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。
• 第二套：VBA數(shù)據(jù)庫解決方案 數(shù)據(jù)庫是數(shù)據(jù)處理的專業(yè)利器，教程中詳細介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學習。目前這套教程提供的是修訂第一版教程，程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。
• 第三套：VBA數(shù)組與字典解決方案 數(shù)組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學習，是初級及中級人員代碼精進的手段。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。
• 第四套：VBA代碼解決方案之視頻 是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的視頻講解，視頻更易接受。
• 第五套：VBA中類的解讀和利用 這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。
• 第六套教程：VBA信息獲取與處理，這是一部高級教程，涉及范圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應用程序信息獲得、隨機信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時操作，剪切板應用、Split函數(shù)擴展、工作表信息與其他應用交互，F(xiàn)SO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。
• 第七套教程：VBA之EXCEL應用 這是一部初級教程這部教程共三冊，從從創(chuàng)建宏、對話框、工作簿和工作表對象、單元格對象等基礎內(nèi)容講起，到循環(huán)結(jié)構(gòu)、錯誤處理、字符串操作、日期和時間、事件、數(shù)組應用，函數(shù)過程等方面，一直講解到控件和窗體對象的應用都是我們提高自己EXCEL水平的必須。
• 第八套教程：VBA之WORD應用 是圍繞“面向?qū)ο缶幊獭闭归_的講解，讓大家充分認識Word中VBA的對象，以及對象的屬性、方法及利用。教程共分三冊，十六章，其中前十五章是各種對象屬性、方法的講解，每節(jié)都有專門的實例說明這些屬性方法的具體應用，最后一章是結(jié)和具體應用場景的講解，詳細講解了二十八個實際工作中有代表性的實例，緊扣word數(shù)據(jù)的批量處理，發(fā)揮VBA的長處。本套教程實例眾多，大家可以拿來即用，或者修正后加以利用。由于這套教程是圍繞“面向?qū)ο缶幊獭眮碚归_，建議大家先學《VBA之Excel應用》，對VBA中的對象、屬性、方法、事件有一定認識后再來學習這套教程。