Как объединить несколько файлов Ворд в один

Иногда у нас возникает необходимость объединить несколько файлов Ворд в один. На этой странице мы рассмотрим два способа, как это можно сделать. Но прежде, чем приступить к объединению нескольких документов в один, убедитесь, что все документы лежат у вас в одной папке. Сделали? Тогда приступим.

 

Объединяем документы с помощью «Текст из файла»

Этот способ поможет вам соединить несколько файлов в один, но знайте, что при этом будет потеряно форматирование в готовом документе.

Шаг 1.

Создайте новый пустой документ: иконка «Офиса», затем «Создать».как объединить несколько документов word в один

Шаг 2.

Перейдите на вкладку «Вставка», найдите в разделе «Текст» кнопку «Объект» и нажмите на стрелочку вниз.

Шаг 3.

В диалоговом окне выберите «Текст из файла».как объединить несколько файлов ворд в один

Шаг 4.

Выберите все файлы, которые вы желаете объединить в один.

Чтобы выбрать все сразу файлы нажмите CTRL + A. Если вы желаете выбрать несколько файлов подряд, то выделите первый из них, затем зажмите клавишу SHIFT и выберите последний — промежуточные выделяться автоматически. Если вам нужно выбрать, к примеру, все нечетные файлы, то выделяйте их левой кнопкой мыши, держа клавишу CTRL.

Шаг 5.

После того, как файлы выделены, нажмите на кнопку «Вставить», и документы отправятся в созданный вами документ.как объединить файлы word в один

Объединяем документы с помощью скрипта VBA

Прежде чем приступить к запуску следующего скрипта, прошу вас, проделайте эти инструкции:

  1. Соберите все документы, которые вы будете объединять в одну папку и пронумеруйте их в том порядке, в котором они должны быть. Например так: часть 1, часть 2 и т.д. Необходимо это сделать для того, чтобы в процессе объединения документов не был перепутан материал.
  2. Откройте документ с тем материалом, который будет размещен самый первым, и только после этого приступайте к запуску скрипта.

Шаг 1. 

В окне Ворда нажмите на сочетание клавиш ALT + F11 для запуска Visual Basic Application.

Шаг 2.

В меню «Insert» — «Module». Теперь скопируйте код скрипта и вставьте его в окне VBA.ворд в один файл

Шаг 3.

Запустите выполнение кода, нажав F5 на клавиатуре, либо на панели на зеленый треугольник.ворд в один документ

VBA скрипт, чтобы объединить несколько файлов ворд в один

Sub MergeDocuments()
  Application.ScreenUpdating = False
  MyPath = ActiveDocument.Path
  MyName = Dir(MyPath & "\" & "*.doc")
  i = 0 
  Do While MyName <> ""
  If MyName <> ActiveDocument.Name Then
  Set wb = Documents.Open(MyPath & "\" & MyName)
  Selection.WholeStory
  Selection.Copy
  Windows(1).Activate
  Selection.EndKey Unit:=wdLine
  Selection.TypeParagraph
  Selection.Paste
  i = i + 1
  wb.Close False
  End If
  MyName = Dir
  Loop
  Application.ScreenUpdating = True
  End Sub

Удачи в изучении. Переходите к другим урокам.

Как объединить несколько файлов Ворд в один: 7 комментариев

  • Уведомление: Как объединить несколько файлов Эксель в один – Excel | В-офисе

  • 13/05/2016 в 07:05
    Permalink

    При выборе первого варианта вставки будут ли файлы вставляться по порядку, как и расположены в файле или им нужно обязательно присвоить номера в названии?

    Ответ
    • 14/05/2016 в 14:11
      Permalink

      Лучше присвоить порядковый номер, чтобы и вставлялись они в текст в том порядке, что нужно вам.

      Ответ
  • 20/09/2016 в 18:31
    Permalink

    Здравствуйте, mr.Unrealist! При объединении файлов при помощи скрипта выдается ошибка «Invalid or unqualified reference» при этом выделяется часть скрипта .doc»

    Ответ
    • 21/09/2016 в 14:56
      Permalink

      Здравствуйте, Игорь. Попробуйте снова. Сделал вывод кода скрипта по другому, должно работать. У меня сработал :)

      Ответ
  • 07/11/2016 в 21:52
    Permalink

    А не подскажете, как сделать, что бы каждая новый документ добавлялся на отдельную страницу?

    Ответ
    • 08/11/2016 в 00:39
      Permalink

      Дмитрий, к сожалению такого способа я не знаю. Что-то нужно подправить в коде VBA. А что именно, я не подскажу.

      Ответ

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

2 × 2 =