Как разделить документ Word на несколько отдельных документов?

АвторАманда ЛиДата изменения2025-01-09

Если вам нужно разделить большой документ Word на несколько более мелких, это руководство поможет освоить три эффективных метода. Независимо от того, предпочитаете ли вы использовать VBA для разделения по заданному разделителю или по страницам, или воспользоваться удобными функциями Kutools для Word, — вы обязательно найдёте подходящее решение.

Разделение документа Word по указанному разделителю с помощью VBA
Разделение документа Word по заголовкам/страницам/Разрыв раздела/Разрыв страницы с использованием Kutools для Word
Разделение документа Word по страницам с помощью VBA

Разделение документа Word по указанному разделителю с помощью VBA

Вместо ручного разделения документа воспользуйтесь VBA, чтобы автоматически разбить документ Word по заданному разделителю. Выполните следующие действия:

Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

Выберите Вставка>Модульи вставьте приведённый ниже код VBA в окно модуля.

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "///", "Notes "
End Sub

Нажмите кнопку Выполнить или клавишу F5, чтобы запустить макрос VBA.
В диалоговом окне Microsoft Word подтвердите действие, нажав Да.

Примечания:

Скрипт будет искать «///» (в строке 22 кода) в документе, чтобы определить точки, где текст нужно разделить на отдельные файлы. Если в вашем документе используется другой разделитель вместо «///», обновите код VBA, указав правильный разделитель, либо внесите изменения в сам документ, добавив «///» в нужных местах.
Вы можете заменить «Notes» в строке 22 кода на любой текст, чтобы задать более осмысленный префикс для имён разделённых документов.
Разделённые документы сохранятся в том же месте, что и исходный файл.
В конце документа не нужно указывать разделитель — иначе будет создан пустой файл.

Разделение документа Word по заголовкам/страницам/Разрыв раздела/Разрыв страницы с использованием Kutools для Word

Kutools для Word предлагает более удобный и гибкий способ разделения документа по сравнению с ручными методами или VBA. Вы можете разделять документ по заголовкам, страницам, разрывам разделов, разрывам страниц, каждые n страниц или по пользовательским диапазонам страниц — всё это позволяет точно адаптировать процесс под ваши конкретные задачи.

Нажмите KUTOOLS PLUS>Разделить, чтобы активировать функцию Разделить.

В диалоговом окне Разделить документ настройте следующие параметры:

Диалоговое окно Kutools «Разделить документ»

Выберите метод разделения из раскрывающегося списка Разделить по. Доступные варианты: заголовки 1, разрыв страницы, разрыв раздела, страницы, каждые n страниц или пользовательские диапазоны страниц.
Нажмите кнопку Обзор, чтобы выбрать папку назначения для разделённых документов.
Введите ключевое слово в качестве префикса для имён новых документов в поле Префикс документа.Совет: Нажмите кнопку Обновить, чтобы предварительно просмотреть имя разделённого документа в поле Предварительный просмотр.
Нажмите ОК.

Документ будет разделён в соответствии с выбранным методом, а созданный файл сохранится в указанную папку.

Примечания:

Если разделение выполняется по Каждые n страниц, укажите количество в соответствующем поле.
Для пользовательских диапазонов страниц введите их через запятую (например,)1,3-5,12).

Хотите быстрее справляться с похожими задачами в Word? Попробуйте Kutools для Word и сделайте свою повседневную работу проще!

Скачать Подробнее

Просмотр и редактирование нескольких документов Word во вкладках — как в Chrome и Edge!

Так же, как вы просматриваете несколько веб-страниц в Chrome, Safari и Edge, Office Tab позволяет открывать и управлять несколькими документами Word в одном окне. Переключаться между документами теперь проще простого — достаточно щёлкнуть по нужной вкладке!
Попробуйте Office Tab бесплатно прямо сейчас!

Просматривайте несколько документов Word в одном окне, как в Chrome

Разделение документа Word по страницам с помощью VBA

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

Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

Выберите Вставка>Модуль, затем вставьте следующий код VBA в новое окно модуля:

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document
Set rngPage = docMultiple.Range 'Instantiate the range object
iCurrentPage = 1
'Get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
    If iCurrentPage = iPageCount Then
        rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
    Else
        'Find the beginning of the next page
        'Must use the Selection object. The Range.Goto method will not work on a page
        Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
        'Set the end of the range to the point between the pages
        rngPage.End = Selection.Start
    End If
    rngPage.Copy 'Copy the page into the Windows clipboard
    Set docSingle = Documents.Add 'Create a new document
    docSingle.Range.Paste 'Paste the clipboard contents to the new document
    'Remove any manual page break to prevent a second blank
    docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
    'Build a new sequentially numbered file name based on the original multi-paged file name and path
    strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
    docSingle.SaveAs strNewFileName 'Save the new single-paged document
    iCurrentPage = iCurrentPage + 1 'Move to the next page
    docSingle.Close 'Close the new document
    rngPage.Collapse wdCollapseEnd 'Go to the next page
Loop 'Go to the top of the do loop
Application.ScreenUpdating = True 'Restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub

Нажмите кнопку Выполнитьили нажмите 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