Merge Documents macro inserting section break (Word)

Sub MergeMultipleFiles()
Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User", , "Cancelled"
Exit Sub
End If
End With
For i = 1 To fDialog.SelectedItems.Count
Selection.InsertFile fDialog.SelectedItems.Item(i)
Selection.InsertBreak Type:=wdSectionBreakNextPage

Next i
End Sub

Leave a Reply