How do I merge multiple word documents ?

Hi Niels,

We have noticed that you have not replied to our last response. We would like to know if the issue you have raised to us is still on-going. If yes, please reply to the thread so we can continue troubleshooting your concern. 

Thank you. 

Regards,

Chan G

Microsoft Community Moderator

Hi Chan G

There seems to be at least one error in your suggested VBA code,

When putting VBA or other code into the forum, please remember to change the format from Standard to Code Block using the toolbar above your message.

A better way to distribute VBA code is to make a sample document and distribute that:
Why a sample file is important for troubleshooting - - - - - - - and how to do it.

Hi Niels,

Thank you for using Microsoft products and making community posts.

I understands the importance of resolving this issue, Don’t worry I will be helping you with this following steps.

Method 1: Using Insert > Text from File

This method allows you to merge multiple documents into one without copying and pasting manually.

1. Open a new or existing Word document (where you want to merge all files).
2. Go to the "Insert" tab in the ribbon.
3. Click "Text from File" (found under Object dropdown).
4. Select the first batch of Word documents and click Insert.
5. Repeat this process until all documents are added.

Method 2: Manually Copy & Paste (Quick for Small Documents)

If your documents contain different formatting or styles, it might be best to manually copy & paste to ensure consistency.

1. Open each document and select all text (Ctrl + A or Cmd + A on Mac).
2. Copy (Ctrl + C or Cmd + C).
3. Paste (Ctrl + V or Cmd + V) into the main document.

You can also try these more advance steps below:

Method 3: Using VBA (Automated for Many Documents)

If you have 25+ files, manually inserting each one can be tedious. Using VBA code in Word can automate the process:

1. Open Word and press ALT + F11 to open the VBA editor.
2. Click Insert → Module.
3. Paste the following code:

vbaSub MergeDocuments() Dim mainDoc As Document Dim fileDialog As FileDialog Dim fileName As String Dim i As Integer

Set mainDoc = ActiveDocument
Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)

With fileDialog
    .AllowMultiSelect = True
    .Filters.Add "Word Documents", "\*.docx"
    If .Show = -1 Then
        For i = 1 To .SelectedItems.Count
            fileName = .SelectedItems(i)
            mainDoc.Range.InsertFile fileName
        Next i
    End If
End With

End Sub

1. Run the macro, select your 25 files, and Word will merge them automatically.

Please feel free to let me know how it goes.

Chan G

Microsoft Community Moderator