怎样将.doc格式转化成.rtf格式?

Question

怎样将.doc格式转化成.rtf格式?请给点代码,谢谢!

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim oApp As Word.Application
    Dim oDoc As Word.Document
    
    Set oApp = New Word.Application
    Set oDoc = oApp.Documents.Open("c:\Test.doc")
    oDoc.SaveAs "c:\Test.rtf", wdFormatRTF
    oDoc.Close False
    Set oDoc = Nothing
    oApp.Quit
    Set oApp = Nothing
    RichTextBox1.LoadFile "c:\Test.rtf"
End Sub

Answer 2

首先添加microsoft word x.0 object library的引用Dim objword As Word.Application '定义word对象Private Sub Command1_Click()
    Set objword = New Word.Application '生成word新实例
    objword.Documents.Open "c:\filename.doc" '打开doc文件
    objword.ActiveDocument.SaveAs "c:\filename.rtf", wdFormatRTF '另存为rtf格式
    objword.ActiveDocument.Close '关闭文档
    objword.Quit '关闭word
    Set objword = Nothing '释放资源
End Sub

Answer 3

我的WORD是2003的，会不会不支持呀？对WORD97是支持的吧？

Answer 4

http://www.cnpopsoft.com/default.asp
这里可以找到不少关于RTF文件格式的资料