RTF另存檔成DOC的VBS程式

由 · | 瀏覽數: 1 / 13800

標籤：

以前有許多的系統文件是以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 個回應

  1. piu表示:
    2011/10/2822:23:54

    我不太了解步驟耶，而且路徑要怎麼打呢?謝謝噢:)

    回覆
  2. 簡睿表示:
    2006/09/2713:27:35

    謝謝您的分享。

    回覆
  3. Mike表示:
    2006/09/2617:13:26

    以下是我自已製作的把 word  excel ppt 轉成htmlhttp://tw.myblog.yahoo.com/c9993/article?mid=157&prev=-1&next=73

    回覆

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *