1 Тема от Alex_Gur

  • Объединение группы файлов Word с помощью макроса
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Объединение группы файлов 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

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

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.