Как в Word разбить документ на несколько документов?
Если у вас есть объемный текстовый документ, который вам нужно разделить на несколько документов, уделите несколько минут, чтобы прочитать это руководство. Это руководство покажет вам два метода разделения документа на несколько документов.
- Разделить документ Word по указанному разделителю с помощью VBA
- Разделить документ Word по страницам с помощью VBA
- Разделить документ Word по заголовку / странице / разрыву раздела / разрыву страницы с помощью Kutools for Word
Разделить документ Word по указанному разделителю с помощью VBA
Вместо разделения документа на несколько документов вручную этот метод вводит VBA для разделения документа Word по указанному разделителю в Word. Пожалуйста, сделайте следующее:
1, нажмите Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic для приложения;
2. Нажмите Вставить > Модули, а затем вставьте ниже код VBA в новое открывающееся окно модуля.
VBA: разделить документ Word на несколько документов по разделителю
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
3. Затем нажмите Run или нажмите клавишу F5, чтобы применить VBA.
4. Во всплывающем документе Microsoft Word нажмите кнопку Да, чтобы продолжить.
Примечание:
(1) Обязательно добавьте разделитель, как и "///" во вспомогательном тесте документа между каждым разделом текста, который вы хотите отделить. Также вы можете изменить "///" к любым разделителям, чтобы удовлетворить ваши потребности.
(2) Вы можете изменить документы "Заметки" в дополнительном тесте в соответствии с вашими потребностями.
(3) И разделенные документы будут сохранены в том же месте, что и исходный файл.
(4) Вам не нужно добавлять разделитель в конец исходного файла, если вы это сделаете, после разделения будет пустой документ.
Разделить документ Word по страницам с помощью VBA
Вот еще один VBA, который поможет вам быстро разделить один документ Word на несколько страниц в Word. Пожалуйста, сделайте следующее:
1, нажмите Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic для приложения;
2. Нажмите Вставить > Модули, а затем вставьте ниже код VBA в новое открывающееся окно модуля.
VBA: разделить документ на несколько документов по страницам в Word
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 _
(the one currently containing the Selection)
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 (there won't be a 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
3. Затем нажмите Run или нажмите F5 ключ для применения VBA.
Примечание: Разделенные документы будут сохранены в том же месте, что и исходный файл.
Разделить документ Word по заголовку / странице / разрыву раздела / разрыву страницы с помощью Kutools for Word
Если у вас установлен Kutools for Word, вы можете применить его Split функция, позволяющая легко разделить один документ на несколько по странице, заголовку, разрыву раздела или разрыва страницы, как вам нужно в Word ..
1.Щелкните Кутулс Плюс > Split для Split функцию.
2. В открывшемся диалоговом окне Разделить на экране вы можете сделать следующее:
(1) Выберите способ разделения из Разделить на выпадающий список.
Эта функция поддерживает 6 способов разделения: заголовок 1, разрывы страниц, разрывы разделов, страницы, каждые n страниц и настраиваемые диапазоны страниц, как показано ниже:
(2) Щелкните значок ЛИСТАТЬ СПИСКИ кнопка указать папку назначения, в которую вы сохраните разделенные документы;
(3) Введите ключевое слово в качестве префикса имен новых документов в поле Префикс документа пунктом.
Советы:
(1) Если вы укажете разделение текущего документа по Каждые n страниц, вам нужно указать номер в Каждые n страниц коробка;
(2) Если вы укажете разделение текущего документа по настраиваемым диапазонам страниц, вам необходимо ввести эти настраиваемые диапазоны страниц через запятую в поле страница box, например, введите 1, 3-5, 12 в поле.
3, Нажмите Ok кнопку, чтобы начать разделение.
Затем текущий документ разделяется указанным способом разделения, и новые документы будут сохраняться в целевую папку сразу.
Просмотр и редактирование нескольких документов Word с вкладками в Firefox, Chrome, Internet Explore 10!
Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет просматривать несколько документов Word в одном окне Word и легко переключаться между ними, щелкая их вкладки. Нажмите, чтобы получить полную бесплатную пробную версию!
Относительные статьи:
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...