Office中国论坛/Access中国论坛

标题: 如何转换RichText [打印本页]

作者: dong_zhq    时间: 2006-10-14 00:49
标题: 如何转换RichText
在一张表中有一个字段是用长二进制格式存放的RTF数据。

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

谢谢!
作者: 情比金坚    时间: 2006-10-14 01:11
'比如用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




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3