国产探花免费观看_亚洲丰满少妇自慰呻吟_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 文件。 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 钟山县| 云南省| 开鲁县| 蓝山县| 鄂伦春自治旗| 三台县| 泰和县| 伊通| 沙坪坝区| 泸州市| 威海市| 丰原市| 黄龙县| 五常市| 延庆县| 桦甸市| 天祝| 农安县| 阳西县| 郯城县| 古田县| 崇义县| 诸城市| 昌平区| 晋宁县| 古交市| 仪陇县| 浮山县| 嘉兴市| 阿瓦提县| 正定县| 阜新| 井研县| 龙泉市| 平和县| 晋江市| 瑞金市| 达日县| 梁山县| 新宾| 武邑县|