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/)