Как объединить несколько документов в Word, сохранив исходное форматирование?

Объединение нескольких документов в один файл в Microsoft Word — распространённая задача, но сохранить исходное форматирование бывает непросто при использовании некоторых методов. Хотя можно вручную открыть каждый документ и объединить их копированием и вставкой, такой подход отнимает много времени и может привести к несогласованности оформления. К счастью, существуют способы, которые значительно упрощают этот процесс:

• Объединение нескольких документов с помощью функции «Текст из файла»
• Массовое объединение нескольких документов без потери форматирования с помощью Kutools для Word
• Массовое объединение нескольких документов без потери форматирования с помощью VBA

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

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

1. Создайте новый документ Word, в который вы хотите объединить другие документы. Затем нажмите Вставка > Объект > Текст из файла.
2. В диалоговом окне Вставка файла:
   1. Откройте папку с документами, которые нужно объединить.
   2. Выберите документы, которые хотите объединить.
   3. Нажмите кнопку Вставить.

      

   Совет: Удерживая клавишу Ctrl, выбирайте несколько документов по одному или, удерживая клавишу Shift, выделите несколько соседних документов, щёлкнув по первому и последнему.
3. Если документы, которые вы хотите объединить, находятся в разных папках, повторяйте шаги 1–2 столько раз, сколько необходимо.

Объединение нескольких документов в один без потери форматирования с помощью Kutools для Word

После установки Kutools для Word вам не нужно создавать новый пустой документ или хранить все файлы в одной папке. Благодаря функции Объединить от Kutools вы можете быстро объединить несколько документов в один прямо в Word — без потери форматирования. Выполните следующие действия:

1. Нажмите KUTOOLS PLUS>Объединить.

   

2. В открывшемся диалоговом окне Объединить документыдобавьте документы, которые необходимо объединить:
   1. Нажмите кнопку Добавить файлы.
   2. В диалоговом окне «Обзор» перейдите в папку с документами, которые нужно объединить.
   3. Удерживая клавишу Ctrl или Shift, выберите несколько документов.
   4. Нажмите кнопку ОК.

      

   Советы:

   • Чтобы объединить документы из разных папок, повторяйте этот шаг, добавляя их по одному.
   • Вы также можете массово добавить документы, сохранённые в одной папке, с помощью кнопки Добавить папку.
3. Вернувшись в диалоговое окно Объединить документы:
   1. Измените порядок документов с помощью кнопок Вверх и Вниз.
   2. Укажите разрыв между документами с помощью раскрывающегося списка Разрыв между документами.
   3. Нажмите кнопку Объединить.

      

Выбранные документы Word будут объединены в новый документ с сохранением исходного форматирования, как показано ниже:

Объединение нескольких документов в один без потери форматирования с помощью VBA

Кроме того, вы можете воспользоваться макросом VBA, чтобы объединить несколько документов Word в один.

1. Поместите все документы Word, которые вы хотите объединить, в одну папку.

   

2. Переименуйте документы Word в серии последовательных имён.
   1. Щёлкните правой кнопкой мыши по документу, выберите в контекстном меню команду Переименовать, а затем введите новое имя, например Часть1.
   2. Повторите эти действия, чтобы переименовать остальные документы.

      

3. Дважды щёлкните, чтобы открыть документ, который будет помещён в начало объединённого файла.
4. Нажмите одновременно клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
5. Нажмите Вставка>Модуль, а затем вставьте приведённый ниже код VBA в окно Модуль:

   Sub MergeDocuments()
   Application.ScreenUpdating = False
   MyPath = ActiveDocument.Path
   MyName = Dir(MyPath & "\" & "*.docx")
   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

   Примечание: Этот макрос VBA объединяет только документы Word с расширением .docx. Если вам нужно объединить документы (.doc), замените в коде docx на MyName = Dir(MyPath & «\» & «*.docx») на doc.

6. Нажмите кнопку Выполнить или клавишу F5, чтобы применить макрос VBA.

См. также:

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

📘Мастерство работы с документами: Разделение страниц / Объединение документов / Экспорт выделенного фрагмента в различных форматах (PDF, TXT, DOC, HTML и др.) / Пакетное преобразование в PDF…

✏Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменение размера всех изображений / Транспонировать таблицу строк и столбцов / Преобразовать таблицу в текст…

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

 

Бесплатно скачать     Купить сейчас     Подробнее

 

---

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

• Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
• Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать     Купить сейчас     Подробнее

 

---

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас🎁 Приобрести полный пакет📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

• 🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
• 📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
• ✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
• 🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
• ➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
• 🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачатьКупить сейчасПодробнее о Kutools