如何把ole控件中的word文档代码另存为rtf文档

Question

为了解决ole控件中word文档的显示问题，想用richtextbox来显示
请教如何把word文档转换为rtf文档，我给100分，我只有这么多的了啊！

Answer 1

Private Sub Doc2Rtf()
    Dim wordApp As New Word.Application
    Dim wordDoc As Word.Document
    Set wordDoc = wordApp.Documents.Open(WordFile) '打开word文件
    wordDoc.SaveAs rtfFile, wdFormatRTF   '另存为rtf格式文件
    wordApp.Quit
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub