Combining multiple word documents into one

[geekgirlau]

My understanding is that the reason you want to merge the files together is because you were unsuccessful in printing them individually - is this correct? If so, what about setting a delay -

Dim wordApp As New Word.Application
    Dim myDoc As Word.Document
    Dim myDoc2 As Word.Document     ' DON'T NEED THIS!
    Dim dtmStart As Date
Const TARGET_FOLDER_ONEPAGE As String = _
        "P:\Clients\Vanguard\Finance\testing\onepagedocs\"
With wordApp
   .Visible = False
   .ScreenUpdating = False
   .DisplayAlerts = False
   Set Fso = New FileSystemObject
   Set fldr = Fso.GetFolder(TARGET_FOLDER_ONEPAGE)
   For Each f In fldr.Files
      If Right(f.Name, 4) = ".doc" Then
         Set myDoc = Documents.Open(TARGET_FOLDER_ONEPAGE & f.Name)
         ' date/time stamp
         dtmStart = Now()
         myDoc.PrintOut
         myDoc.Merge   ' WHY DO YOU NEED THIS ONE?
         ' set delay here -
         'I've used 2 minutes, may need to experiment
         Do
            DoEvents
         Loop Until DateDiff("n", dtmStart, Now()) > 2
         myDoc.Close False
      End If
   Next f
    End With
wordApp.Quit