RTF 文档的合并也曾经使我大伤脑筋（网上也找不到参考资料），后来经过50多次试
验，终于成功！
　　需要两个 RichTextBox 控件，一个作为主框，一个作为专用框，专用框设置为隐藏属
性，再声明一个 API 函数 SendMessage。假设主框为 RTF2，专用框为 RTF1，代码如下：

Sub rtf文档合并(rtfFileName As String)
    RTF1.LoadFile rtfFileName               '在 RTF1 上打开 rtf 文档
    SendMessage RTF1.hWnd, 177, 0, ByVal -1 '全选
    Clipboard.Clear                         '清空剪贴板
    Clipboard.SetText RTF1.SelRTF           '将 RTF1 的内容全部装进剪贴板
    RTF1.SelText = ""                       '清空 RTF1
    RTF2.SelRTF = Clipboard.GetText         '从 RTF2 的光标处插入
End Sub