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

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

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

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

Шаг 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

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

Ссылка на основную публикацию