Объединение группы файлов Word с помощью макроса

В ряде случаев бывает необходимо быстро объединить несколько файлов Word в определенной последовательности.
Для выполнения такого объединения в пользовательском режиме используется команда Текст из файла (вкладка Главная – группа Текст – Объект – Текст из файла).
Однако, если файлов много, то выполнить большое количество подобных операций бывает довольно затруднительно.
В этом случае на помощь приходит макрос:

Sub UniteFiles01()
    Dim path1 As String
    path1 = ActiveDocument.Path & "\"

    Selection.InsertFile filename:=path1 & "File 01.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.TypeParagraph

    Selection.InsertFile filename:=path1 & "File 02.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.TypeParagraph

    Selection.InsertFile filename:=path1 & "File 03.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.TypeParagraph

    ' (Повторите нужное количество раз)
End Sub

Сводный файл предварительно должен быть сохранен в ту же папку, что и объединяемые файлы. Он должен быть открыт и являться активным.
Вместо выражений File 01.doc, File 02.doc, File 03.doc и т.д. указываются реальные наименования объединяемых файлов в нужной последовательности.
(Для более быстрого получения перечня файлов в текущей папке можно предварительно использоваться команда Windows (скрипт)

dir /b > a.txt

Желаю всем успешной работы!