如何将access中备注型字段中存储的rtf格式数据写入word文件中

小弟想做题库系统，题目或答案中有公式题目，所以用到richtextbox
存入access数据库
用  .Fields("xxx").AppendChunk txtXXX.TextRTF

读入richtextbox
用
    DataSize = Rs.Fields("xxx").ActualSize
    strData = Rs.Fields("xxx").GetChunk(DataSize)
    FileNum = FreeFile
    Open App.Path & "\tmp.rtf" For Binary As FileNum
        Put #FileNum, , strData
    Close
    txtXXX.LoadFile App.Path & "\tmp.rtf"

现在我想把数据库中的数据写到word里形成一套试卷，怎么操作，不只是一道题，而是很多题，所以采用先打开一个模板文件，

    Dim Wd As New Word.Application
    Dim Doc As Word.Document
    Set Doc = Wd.Documents.Open(App.Path & "\xxx.Doc", , True)
    Wd.Visible = True
    With Doc.Application

    .Selection.InsertAfter （数据库里循环出的数据）

    Wd.ActiveWindow.Close wdDoNotSaveChanges
    Set Wd = Nothing

   上述中数据库里循环出的数据不知怎么称呼，就叫rtf格式吧这样的格式

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\lang2052\f0\fs18\'cd\'a8\'b3\'a3\'cb\'f9\'cb\'b5\'b5\'c4\'b0\'d9\'d5\'d7\'cd\'f8\'a1\'a2\'c7\'a7\'d5\'d7\'cd\'f8\'ca\'c7\'d6\'b8\'a3\'a8 \'a3\'a9\'a1\'a3
\par }

   怎样才能在word中正确显示那？ --------------------编程问答-------------------- richtextbox  只能存到RTF格式和TXT2种格式的文件中
--------------------编程问答-------------------- {\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\lang2052\f0\fs18\'cd\'a8\'b3\'a3\'cb\'f9\'cb\'b5\'b5\'c4\'b0\'d9\'d5\'d7\'cd\'f8\'a1\'a2\'c7\'a7\'d5\'d7\'cd\'f8\'ca\'c7\'d6\'b8\'a3\'a8 \'a3\'a9\'a1\'a3
\par }
把以当文本写入磁盘临时文件test.rtf中，然后再对word对像打开test.rtf文件。

通常所说的百兆网、千兆网是指（）。 --------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- 有没有其他答案哪？ --------------------编程问答-------------------- 自己再顶一下 --------------------编程问答-------------------- 想问楼主问题解决没？我也遇到同样问题，不过我用的是VC --------------------编程问答-------------------- 是的，楼主问题解决了没有，我也遇到同样问题 --------------------编程问答--------------------
如果不生成磁盘文件，让相应的软件自己处理，那就不可避免地需要自己的代码去处理文件内容了。

补充：VB ,  基础类