Combining word documents

[AFI247365]

I have many .rtf's that I wish to combine into one big file. Is there a way to join all of these files?

 

[JustinEzequiel]

here's one way using a Rich Text Box control

Option Explicit

Private Sub Form_Load()
  Dim sPath As String
  Dim sFile As String
  Dim sOutput As String
  
  RichTextBox1.Text = ""
  
  sPath = "D:\Justin's Folder\RTFs\"
  sFile = Dir(sPath & "*.rtf")
  sOutput = "D:\Justin's Folder\Combined.rtf"
  
  Show
  Do While sFile <> &quot;&quot;
    InsertFile sPath & sFile
    sFile = Dir
    RichTextBox1.Refresh
  Loop
  
  RichTextBox1.SaveFile sOutput
End Sub

Private Sub InsertFile(ByVal sFile As String)
  Dim nFile As Integer
  Dim sCont As String
  
  sCont = Space$(FileLen(sFile))
  nFile = FreeFile
  Open sFile For Binary As nFile
  Get nFile, , sCont
  Close nFile
  
  RichTextBox1.SelRTF = sCont
End Sub

Private Sub Form_Resize()
  RichTextBox1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub