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