RTF另存檔成DOC的VBS程式

以前有許多的系統文件是以RTF格式儲存的,為了能用最快速的方式將這些檔案轉存成DOC格式,因此研究、改寫了轉檔程式:


rtf2doc1.vbs
dim oArgs
dim oDoc
dim oApp
dim newpath

set oArgs = WScript.Arguments
if oArgs.Count > 0 then
set oApp = createobject("Word.Application")
‘ the ,0 parameter means do not confirm conversions
set oDoc = oApp.Documents.Open(oArgs(0),0)
‘ the 0 parameter means use .doc format
newpath = left(oDoc.FullName,len(oDoc.FullName)-4) & "_new.doc"
Wscript.echo oDoc.FullName & "==>" & newpath

‘ the 0 parameter means use .doc format
oDoc.SaveAs newpath, 0
oApp.Quit
end if
WScript.Quit



在DOS視窗裡以 rtf2doc1 要轉檔的RTF檔名(含路徑) 即可產生出DOC的檔案。

如果有安裝Windows Script Debugger的話,可以加入 //X 參數來除錯。

http://blog.xuite.net/emisjerry/tech?st=c&re=list&p=1&w=80432

##

您可能也會有興趣的類似文章

3 則留言 »RTF另存檔成DOC的VBS程式

填寫回應

 

 

 

您可使用這些HTML標籤

<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped="" highlight="">

隨機文章

  1. [Firefox] 自動統計的瀏覽紀錄排行榜外掛:New Tab King 
  2. [QNAP NAS] 使用新版的pyLoad讓NAS成為免空下載利器 
  3. 功能齊全的檔案總管工具:NexusFile V 
  4. [Tools] 加快鍵入速度的「片語特快車」 (2)
  5. Acer Aspire S3 Ultrabook初體驗 (3)
  6. [Xuite] 參觀人次統計數目爆增 (2)
  7. jQuery DataTables範例1:啟始設定 
  8. loginfo.rb:自動寄送修改記錄信件 
  9. SlickRun 命令行視窗執行常用程式 
  10. 亞洲電腦巨擘之間的博弈 

歷史熱門文章

  1. 如何手動輸入Plurk的表情圖示? (353,058 點擊/2008-09-29)
  2. 簡單放大Plurk輸入區的方法[修訂] (86,924 點擊/2008-09-29)
  3. 啟用&關閉中華電信ZyXEL P874的無線網路連線功能的步驟[修訂] (83,955 點擊/2011-06-01)
  4. Plurk CSS樣式自訂修改全攻略 (83,109 點擊/2009-07-04)
  5. 網路升級光世代50M/3M與設定ZyXEL P874 (53,283 點擊/2011-05-28)
  6. 輕鬆學會彈指神功-揭露AutoHotkey絕技 (43,158 點擊/2008-04-10)
  7. iPad新手入門技巧 (40,416 點擊/2011-02-05)
  8. 分享世博台灣館主題曲『台灣的心跳聲』MV(附歌詞+下載連結+新歌詞) (38,149 點擊/2010-04-27)
  9. 把HTC Touch HD操作介面換成Spb Mobile Shell,美觀又便利! (37,954 點擊/2009-02-18)
  10. 另一套適用手機的影片轉檔工具:WinAVI 3GP/MP4/PSP/iPod Video Converter (35,920 點擊/2009-04-18)