寻高打！如何将几个RichText文档同并为一个RichText文档？？？急急！

Question

Private Sub Form_Load()
    '首先读入几个RTF文档
    RichTextBox1.LoadFile ("C:\Abc1.Rtf")
    RichTextBox2.LoadFile ("C:\Abc2.Rtf")
    RichTextBox3.LoadFile ("C:\Abc3.Rtf")
    '合并几个RichText
    RichTextBox1.TextRTF = RichTextBox1.TextRTF + RichTextBox2.TextRTF + RichTextBox2.TextRTF
End Sub

Answer 1

老兄！这个方法不可行的，我早试过了。
每个TextRTF都有自己的文件头的
不过，谢谢你了只是不能给你分了！
对了你可VBA，引用WORD来解决问题！

Answer 2

richtextbox1.loadfile "c:\1.rtf"
richtextbox2.loadfile "c:\2.rtf"
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelRTF = RichTextBox2.TextRTF

Answer 3

RichTextBox1.LoadFile ("C:\Abc1.Rtf")
RichTextBox2.LoadFile ("C:\Abc2.Rtf")
RichTextBox1.SelStart=len(RichTextBox1.text)
RichTextBox1.Selrtf=RichTextBox2.TextRtf
这样该行了吧。

Answer 4

我有一个例子，主要是用虚拟键盘完成！需要的请给我E-Mail:
[email protected]