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