{大虾们救命！！如何将几个RichText文件同并为一个RichText文件？？？急！高分等你拿。}

[创业码农]

用windows自己带的Richtext控件！！！

[创业码农]

Option Explicit
'先用引用“加入Word 8.0”的函数库
Const DocFileName="C:\Doc1.RTF"

Private Sub Command1_Click()
Dim msWordApp As New Word.Application
Dim msWordDoc As Word.Document
Dim msWordSelection As Word.Selection
Dim InFile As String
Dim i As Integer
Set msWordDoc = msWordApp.Documents.Add("", False)
Set msWordSelection = msWordApp.Selection
For i = 0 To List1.ListCount - 1
InFile = List1.List(i)
msWordSelection.InsertFile FileName:=InFile, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
Next
msWordDoc.SaveAs FileName:=DocFileName, FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
msWordDoc.Close
Set msWordSelection = Nothing
Set msWordDoc = Nothing
Set msWordApp = Nothing
Rtb_1.LoadFile(DocFileName) 'RichText控件
End Sub

Private Sub Command2_Click()
cdOpen.Filter = "*.RTF"
cdOpen.ShowOpen
List1.AddItem cdOpen.FileName
End Sub

用VBA可以解决问题！！！

[Putao]

To shines:
似乎不能这样简单的相加,每个RTF文件有它的文件头

[prefix]

那你试试：
richtextbox1.loadfile "c:\1.rtf"
richtextbox2.loadfile "c:\2.rtf"
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelRTF = RichTextBox2.TextRTF
这样该行了吧？

[shines77]

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
'保存合并的RTF文档
RichTextBox1.SaveFile ("C:\Abc.Rtf")
End Sub