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

首頁 > 編程 > VBScript > 正文

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

2019-10-26 17:59:06
字體:
來源:轉載
供稿:網友
問: 
嗨,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 文件。 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 苏州市| 台南市| 龙江县| 太仓市| 清丰县| 横峰县| 资溪县| 米泉市| 西丰县| 永新县| 南陵县| 扶余县| 罗田县| 淳安县| 宜兰市| 仙游县| 靖边县| 渑池县| 海兴县| 老河口市| 孝感市| 本溪| 富顺县| 延庆县| 衢州市| 界首市| 西林县| 聂拉木县| 尼勒克县| 丘北县| 三江| 阳泉市| 鄂托克前旗| 阿拉善盟| 东丰县| 垦利县| 二连浩特市| 遂昌县| 昭平县| 丽江市| 临汾市|