如何将RichText控件中的内容发送到Winword?

Question

我在前面的文档中没有发现类似文章，我是个Freshman，请对我的编码多多指教。

Answer 1

Private Sub mnuFileSend_Click()
   Dim taskid
   frmDocument.rtfText.SelStart = 0
   frmDocument.rtfText.SelLength = Len(frmDocument.rtfText.Text)
   Clipboard.Clear
   Clipboard.SetText frmDocument.rtfText.SelRTF, vbCFRTF
   taskid = Shell("winword", vbNormalFocus)
   AppActivate taskid
   SendKeys "^v"
text1.setfocus
sendkeys "^v"End Subtext1 里面有东西啊。
干脆Clipboard.SetText frmDocument.rtfText.text, vbCFtext算了。

Answer 2

下面是按照您的意思修改后的代码：
Private Sub mnuFileSend_Click()
   '将rtfText中所有内容选中
   frmDocument.rtfText.SelStart = 0
   frmDocument.rtfText.SelLength = Len(frmDocument.rtfText.Text)
     ' 打开word   
     dim wordApp    as object
        Set wordApp = CreateObject("Word.Application")
        wordApp.Visible = True
        wordApp.Documents.Add
        wordApp.ActiveDocument.Range.Text = frmDocument.rtfText.SelRTF
End Sub在上面这段代码执行前，rtfText中的内容为一段文本（双引号中包含的内容），文字如下：
”辅助设计任务：
    爆破飞机    任务说明：
    在座舱内靠近机首部位爆破
    爆破飞机，应将炸药设置在座舱内靠近机首部位，以炸毁操纵装置、军械部分、仪表和雷达。
＊“
注：＊号处为输入符号的位置。
可是在word中得到的结果是：
”{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\lang2052\f0\fs18\'b8\'a8\'d6\'fa\'c9\'e8\'bc\'c6\'c8\'ce\'ce\'f1\'a3\'ba
\par     \'b1\'ac\'c6\'c6\'b7\'c9\'bb\'fa
\par 
\par     \'c8\'ce\'ce\'f1\'cb\'b5\'c3\'f7\'a3\'ba
\par     \'d4\'da\'d7\'f9\'b2\'d5\'c4\'da\'bf\'bf\'bd\'fc\'bb\'fa\'ca\'d7\'b2\'bf\'ce\'bb\'b1\'ac\'c6\'c6
\par     \'b1\'ac\'c6\'c6\'b7\'c9\'bb\'fa\'a3\'ac\'d3\'a6\'bd\'ab\'d5\'a8\'d2\'a9\'c9\'e8\'d6\'c3\'d4\'da\'d7\'f9\'b2\'d5\'c4\'da\'bf\'bf\'bd\'fc\'bb\'fa\'ca\'d7\'b2\'bf\'ce\'bb\'a3\'ac\'d2\'d4\'d5\'a8\'bb\'d9\'b2\'d9\'d7\'dd\'d7\'b0\'d6\'c3\'a1\'a2\'be\'fc\'d0\'b5\'b2\'bf\'b7\'d6\'a1\'a2\'d2\'c7\'b1\'ed\'ba\'cd\'c0\'d7\'b4\'ef\'a1\'a3
\par 
\par 
\par }＊“
我试着在rtfText中Ctrl+A，Ctrl+C。再到Word中Ctrl+V，一切OK。
真是不知该拿他怎么办？！
我想利用ClipBoard的思路是没错的，可是问题到底出在那？