分享成果，隨喜正能量】以禪者的慧眼看世界，觸目都是菩薩。水月相忘渾然一體，珠光交映圓融無礙，饑餐困眠天天都是好日子，山石點(diǎn)頭處處充滿情和意。翠竹黃花皆佛性，白云流水是禪心。千江有水千江月，萬里無云萬里天。

《VBA之Word應(yīng)用》，是我推出第八套教程，教程是專門講解VBA在Word中的應(yīng)用，圍繞“面向?qū)ο缶幊獭敝v解，首先讓大家認(rèn)識(shí)Word中VBA的對象，以及對象的屬性、方法，然后通過實(shí)例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章，今日內(nèi)容是第三章“文檔集合Documents對象及文檔Document對象”第9節(jié)：Word文檔的保存及另存為。

第九節(jié) 文檔Document對象的方法（二）

大家好，我們這節(jié)繼續(xù)Document對象方法的講解，這節(jié)的內(nèi)容是第七節(jié)內(nèi)容的繼續(xù)，對于任何對象來講，都是我們在代碼中利用的高效工具。

1 Document.Save 方法

這種方法將保存指定的文檔。

語法：expression.Save

其中：expression 代表一個(gè) Document對象

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

2 Document.SaveAs2 方法

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

語法：

expression.SaveAs2(FileName,FileFormat,LockComments,Password,AddToRecentFiles, WritePassword,ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,SaveAsAOCELetter,Encoding,InsertLineBreaks,AllowSubstitutions,LineEnding, AddBiDiMarks, CompatibilityMode)

其中：expression 代表一個(gè) Document對象

參數(shù)：

1）FileName 可選 Variant 文檔的名稱。 默認(rèn)值為當(dāng)前文件夾和文件名。 如果從未保存過文檔，將使用默認(rèn)名稱（例如，Doc1.doc）。 如果已經(jīng)存在具有指定文件名的文檔，則覆蓋該文檔，并且在覆蓋前不提示用戶。

2）FileFormat 可選 Variant 文檔的保存格式。可以是任何 WdSaveFormat 常量。 若要以另一種格式保存文檔，請為 FileConverter 對象的 SaveFormat 屬性指定適當(dāng)?shù)闹怠?/p>

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 Open XML file format with macros enabled saved as a single XML file.

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 OpenDocument Text format.

11）wdFormatHTML 8 Standard HTML format.

12）wdFormatRTF 6 Rich text format (RTF).

13）wdFormatStrictOpenXMLDocument 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=ActiveDocument.Name

i=InStrRev(myDoc, ".")

If i=0 Then

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

Else

myDoc=Left(myDoc, i - 1)

myDoc=myDoc & ".txt"

End If

ActiveDocument.SaveAs2 FileName:=myDoc, FileFormat:=wdFormatText

End Sub

代碼截圖：

下面我們看代碼的解讀：

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

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

If i=0 Then

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

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

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

myDoc=myDoc & ".txt"

取得后綴為.txt的文件名

4） ActiveDocument.SaveAs2 FileName:=myDoc, FileFormat:=wdFormatText

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

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

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

1 文檔對象的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對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。
• 第七套教程：VBA之EXCEL應(yīng)用 這是一部初級(jí)教程這部教程共三冊，從從創(chuàng)建宏、對話框、工作簿和工作表對象、單元格對象等基礎(chǔ)內(nèi)容講起，到循環(huán)結(jié)構(gòu)、錯(cuò)誤處理、字符串操作、日期和時(shí)間、事件、數(shù)組應(yīng)用，函數(shù)過程等方面，一直講解到控件和窗體對象的應(yīng)用都是我們提高自己EXCEL水平的必須。
• 第八套教程：VBA之WORD應(yīng)用 是圍繞“面向?qū)ο缶幊獭闭归_的講解，讓大家充分認(rèn)識(shí)Word中VBA的對象，以及對象的屬性、方法及利用。教程共分三冊，十六章，其中前十五章是各種對象屬性、方法的講解，每節(jié)都有專門的實(shí)例說明這些屬性方法的具體應(yīng)用，最后一章是結(jié)和具體應(yīng)用場景的講解，詳細(xì)講解了二十八個(gè)實(shí)際工作中有代表性的實(shí)例，緊扣word數(shù)據(jù)的批量處理，發(fā)揮VBA的長處。本套教程實(shí)例眾多，大家可以拿來即用，或者修正后加以利用。由于這套教程是圍繞“面向?qū)ο缶幊獭眮碚归_，建議大家先學(xué)《VBA之Excel應(yīng)用》，對VBA中的對象、屬性、方法、事件有一定認(rèn)識(shí)后再來學(xué)習(xí)這套教程。

頁內(nèi)容導(dǎo)出word文檔的方法有很多，我們在工作生活中都會(huì)遇到需要將網(wǎng)頁上的內(nèi)容下載到本地文檔的需求，有時(shí)遇到一些網(wǎng)頁不支持復(fù)制，有些又需要翻頁，不能一次性下載。今天跟大家分享怎么將網(wǎng)頁上的內(nèi)容導(dǎo)出到我們的word文檔。

一、復(fù)制粘貼

作為最原始，也是最可靠的方法，復(fù)制粘貼操作簡單有手就行。缺點(diǎn)就是需要進(jìn)行大量機(jī)械操作。

二、通過瀏覽器導(dǎo)出

進(jìn)入瀏覽器，然后打開我們需要導(dǎo)出的網(wǎng)頁，點(diǎn)擊右側(cè)菜單à選擇“更多工具à網(wǎng)頁另存為我們能獲得一個(gè)html格式的文檔

在打開我們的wps或者word軟件，通過導(dǎo)入html格式的文檔，另存為word文檔。

通過這個(gè)方法，我們可以對整個(gè)網(wǎng)頁進(jìn)行導(dǎo)出，優(yōu)點(diǎn)是只需要鼠標(biāo)點(diǎn)選，工作強(qiáng)度變低，缺點(diǎn)是網(wǎng)頁內(nèi)容全部導(dǎo)出，包括頂部菜單欄，廣告等。

三、采集工具導(dǎo)出

使用采集工具，我們可以對我們想要的元素進(jìn)行選擇，只下載需要的內(nèi)容，例如只下載標(biāo)題內(nèi)容，只下載圖片、表格等。

通過采集工具選擇內(nèi)容后，支持對相同組成的頁面進(jìn)行批量采集，不需要我們再去翻頁面。

可視化的操作頁面，也只需要我們操作鼠標(biāo)完成點(diǎn)選，就可以將網(wǎng)頁需要的內(nèi)容一鍵導(dǎo)出本地word，批量導(dǎo)出不需要我們在去找軟件轉(zhuǎn)換格式。

四、編輯后導(dǎo)出

使用采集工具的SEO模板，可以對我們采集的網(wǎng)頁內(nèi)容進(jìn)行翻譯、同義詞替換、敏感詞刪除、圖片水印等操作，讓我們可以批量處理網(wǎng)頁內(nèi)容到我們本地文檔。

網(wǎng)頁內(nèi)容導(dǎo)出的三種方法分享就到這里了，每種方法都有自己的優(yōu)勢，對于需要批量采集、批量編輯翻譯的頁面，使用工具能幫我們完成重復(fù)機(jī)械的操作，減輕工作負(fù)擔(dān)，如果大家有更好的意見或者建議，不妨留言討論哦。

時(shí)遇到文檔格式轉(zhuǎn)換的問題還真不少，PDF轉(zhuǎn)成Word、PPT轉(zhuǎn)成PDF、PDF轉(zhuǎn)成Excel等，都是一些很常見的格式轉(zhuǎn)換需求。而且網(wǎng)上搜也是能搜到一堆的教程，如果想要將Word轉(zhuǎn)成HTML網(wǎng)頁格式，應(yīng)該如何實(shí)現(xiàn)呢?

HTML網(wǎng)頁文件平時(shí)用的比較少，但是在有些時(shí)候我們可能需要將word轉(zhuǎn)換為HTML來使用，這里小編就給大家講解一下如何將word轉(zhuǎn)換為html的。

推薦使用：金舟PDF轉(zhuǎn)換器

操作步驟：

第一步、在電腦上雙擊打開PDF轉(zhuǎn)換器，然后選擇“Word轉(zhuǎn)換”；

第二步、接著在這里選中“Word轉(zhuǎn)HTML”轉(zhuǎn)換功能；

第三步、如圖，點(diǎn)擊添加文件或者直接將轉(zhuǎn)換的文檔添加進(jìn)來即可，可批量添加多個(gè)進(jìn)行轉(zhuǎn)換；

第四步、在這里根據(jù)自己的需要設(shè)置輸出目錄；

第五步、最后，點(diǎn)擊“開始轉(zhuǎn)換”就可以了；

第六步、得到以下提示，說明文件轉(zhuǎn)換成功，點(diǎn)擊前往導(dǎo)出文件位置就可以瀏覽轉(zhuǎn)換好的文件；

第七步、如圖，以下就是轉(zhuǎn)換好的HTML網(wǎng)頁文件啦！