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

《VBA之Word應(yīng)用》，我推出的第八個(gè)教程，教程專門講解VBA在Word中的應(yīng)用，以“面向?qū)ο缶幊獭睘橹行?，首先在Word中了解VBA的對(duì)象和對(duì)象的屬性、方法，然后通過實(shí)例感受Word VBA的妙處，本教程共3卷16章，今天是3

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

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

1 Document。Save方法

此方法保存指定的文檔。

語法：ex

其中expression表示Document對(duì)象

如果為True，Word將自動(dòng)保存所有文檔。如果為False，則Word會(huì)提示您保存自上次保存以來已更改的每個(gè)文檔。

2 Document。SaveAs2方法

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

語法：

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

其中expression表示Document對(duì)象

參數(shù)：

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

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

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標(biāo)準(zhǔn)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 方法的利用實(shí)例

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

Sub mynzH()

Dim myDoc As String

myDoc = Ac

i = InStrRev(myDoc, ".")

If i = 0 Then

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

Else

myDoc = Left(myDoc, i - 1)

myDoc = myDoc & ".txt"

End If

Ac FileName:=myDoc, FileFormat:=wdFormatText

End Sub

代碼截圖：

下面我們看代碼的解讀：

1) myDoc = Ac 這段代碼將當(dāng)前活動(dòng)文檔名字存儲(chǔ)在一個(gè)字符串的變量中。

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

If i = 0 Then

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

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

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

myDoc = myDoc & ".txt"

取得后綴為.txt的文件名

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

保存文件，注意這個(gè)時(shí)候的文件是往往保存在“文檔”的文件夾下面。

文檔的運(yùn)行效果：

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

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

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

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

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

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

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