国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

用vbscript把 Word 文檔保存為文本文件的代碼

2020-06-26 18:08:42
字體:
來源:轉載
供稿:網友
問:  
嗨,Scripting Guy!我有一系列 Word 文件。我想打開這些文件中的每一個并將它們另存為純文本文件。有沒有一種通過使用腳本實現此目的的方法呢?  

-- CG  

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

復制代碼代碼如下:

Const wdFormatText = 2   

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

objWord.Quit  

我們先創建一個名為“wdFormatText”的常量,然后將值 2 分配給它;此常量將用于告訴 Word 我們希望新文件保存為一個文本文件。然后我們創建一個 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”方法關閉 Word 實例。  

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

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”屬性設置為 TRUE。  

第二,您可以將 Word 文檔另存為純文本以外的格式。例如,使用常量 wdFormatHTML(值 = 8)將 Word 文檔另存為 HTML 文件;使用常量 wdFormatXML(值 = 11)將 Word 文檔另存為 XML 文件。 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 青冈县| 宜春市| 宁波市| 桂平市| 松阳县| 健康| 峨眉山市| 仁怀市| 开化县| 六盘水市| 靖安县| 天等县| 上犹县| 平远县| 贵阳市| 石门县| 上虞市| 南通市| 贡山| 渝中区| 阆中市| 宕昌县| 佳木斯市| 色达县| 蒙山县| 邯郸市| 博白县| 祁阳县| 叙永县| 阿勒泰市| 依安县| 巴彦县| 土默特右旗| 萝北县| 大同县| 雷波县| 叶城县| 江都市| 巴塘县| 巴青县| 开原市|