如何转换RichText

dong_zhq

在一张表中有一个字段是用长二进制格式存放的RTF数据。

若想用纯文本文件来显示其中的文本，该如何操作呀？

谢谢！

情比金坚

'比如用word来显示：
Private Sub WdExport_Click()
Dim wdApp
    Clipboard.Clear    '先清除粘贴版

    Clipboard.SetText Text2, vbCFRTF         '用rtf格式复制richtextbox内容
   
    Set wdApp = CreateObject("word.Application")   '打开word 程序
        wdApp.Visible = True
        wdApp.Documents.Add DocumentType:=wdNewBlankDocument
        wdApp.Selection.PasteAndFormat (wdPasteDefault)    '粘贴粘贴版内容
End Sub