問： 
嗨，Scripting Guy！我有一系列 Word 文件。我想打開這些文件中的每一個并將它們另存為純文本文件。有沒有一種通過使用腳本實現(xiàn)此目的的方法呢？ 

-- CG 

答： 
您好，CG。是的，使用一個腳本，您很容易實現(xiàn)此目的。事實上，除了極少例外情況之外，您在 Microsoft Office 程序中可以做到的事情基本上都可以使用一個腳本來完成。在 Word 中，您可以使用“文件”–“另存為”將 Word 文檔另存為文本文件。您也可以使用一個腳本做同樣的事情。實際上，您可以使用以下腳本實現(xiàn)此目的： 


我們先創(chuàng)建一個名為“wdFormatText”的常量，然后將值 2 分配給它；此常量將用于告訴 Word 我們希望新文件保存為一個文本文件。然后我們創(chuàng)建一個 Microsoft Word 實例，使用“打開”方法打開文件 C:\Scripts\MyLog.doc。文檔打開之后，我們只需要一行代碼就可將此 Word 文檔另存為文本文件： 

objDoc.SaveAs "c:\scripts\mylog.txt", wdFormatText 

As you can see, we call the SaveAs method, and we pass it two parameters: 1) C:\Scripts\MyLog.txt, which is the path for our new text file; and, 2) wdFormatText, which tells Word to save the file as plain text.這樣就可以了。然后我們使用“Quit”方法關(guān)閉 Word 實例。 

兩個重要注意事項。第一，您在屏幕上看不到任何正在發(fā)生的事情，因為，默認(rèn)情況下，無論何時您從一個腳本中調(diào)用 Word，它都將運(yùn)行在一個不可見窗口中。如果您希望看到它在屏幕上彈出，保存文件，然后消失，請使用以下代碼： 

Const wdFormatText = 2 

Set objWord = CreateObject("Word.Application") 
objWord.Visible = TRUE 
Set objDoc = objWord.Documents.Open("c:\scripts\mylog.doc") 
objDoc.SaveAs "c:\scripts\mylog.txt", wdFormatText 

objWord.Quit 

唯一的不同之處在于：我們將“Visible”屬性設(shè)置為 TRUE。 

第二，您可以將 Word 文檔另存為純文本以外的格式。例如，使用常量 wdFormatHTML（值 = 8）將 Word 文檔另存為 HTML 文件；使用常量 wdFormatXML（值 = 11）將 Word 文檔另存為 XML 文件。 

最新評論