Note: The other languages of the website are Google-translated. Back to English

Как в 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, вы можете применить его Трещина функция, позволяющая легко разделить один документ на несколько по странице, заголовку, разрыву раздела или разрыва страницы, как вам нужно в Word ..

Kutools for Word это удобная надстройка, облегчающая вашу работу и расширяющая возможности обработки текстовых документов. Бесплатная пробная версия для 60 дней! Получи это сейчас!

1.Щелкните Кутулс Плюс > Трещина для Трещина функцию.

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 и легко переключаться между ними, щелкая их вкладки. Нажмите, чтобы получить полную бесплатную пробную версию!
Просматривайте несколько документов Word в одном окне как Firefox


Относительные статьи:



Рекомендуемые инструменты для повышения производительности Word

 

Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (45)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Когда я пытаюсь разделить документ на текстовый документ, используя приведенный выше код VB, его разделение путем удаления всех изображений и объектов вставки.
Этот комментарий был сведен к минимуму модератором на сайте
У меня проблема, похожая на Dhamo. Я начал с большого файла с множеством встроенных элементов управления содержимым. Когда я разделил файл Word с помощью кода VB, все элементы управления содержимым были преобразованы в обычный текст. Есть ли способ разделить файл без потери форматирования оригинала?
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Как я могу разделить .doc не по одной странице на документ с помощью этих скриптов? Например, 10 или 5 страниц в документе.
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемая команда, VBA для разделения документа на несколько одностраничных документов работает хорошо, но проблема заключается в том, что разделенные документы не имеют форматов таблиц (форматы таблиц в основном документе не форматируются как таблицы в разделенных документах). Заранее спасибо, если я смогу получить макросы, чтобы табличные форматы в основном документе не нарушались в разделенных документах.
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезно спасибо! Мой исходный документ был установлен только для чтения. В новые документы это не переносится. Это можно добавить?
Этот комментарий был сведен к минимуму модератором на сайте
Kutools for Word не работает с документами только для чтения.
Этот комментарий был сведен к минимуму модератором на сайте
К сожалению, я не могу разделить страницы с помощью Kutools. Что я могу сделать? Я получаю это сообщение об ошибке: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. от System.Security.Util.StringExpressionSet.CanonicalizePath(строковый путь, логическое значение needFullPath) от System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, логическое значение needFullPath) от System.Security.Permissions.FileIOPermission.AddPathList(FileIOPermissionAccess access, AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) в System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFullPath) в System.IO.Directory. InternalCreateDirectoryHelper (строковый путь, логический checkHost) в System.IO.Directory.CreateDirectory (строковый путь) в Kutools.FormDocumentSplit. € () в Kutools.FormDocumentSplit. › (Object «, EventArgs») в System.Windows.Forms.Control. OnClick(EventArgs e) в System.Windows.Forms.Button.OnClick(EventArgs e) в System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) в System.Windows.F orms.Control.WmMouseUp(Message& m, кнопка MouseButtons, клики Int32) из ​​System.Windows.Forms.Control.WndProc(Message& m) из System.Windows.Forms.ButtonBase.WndProc(Message& m) из System.Windows.Forms. Button.WndProc(Message& m) из System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) из System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) из System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Этот комментарий был сведен к минимуму модератором на сайте
Слишком сложно для пенсионера понять, что случилось со старым способом Windows XNUMX, эта программа была настолько проста для нас, пожилых людей.
Этот комментарий был сведен к минимуму модератором на сайте
Ваш макрос работает ДЕЙСТВИТЕЛЬНО ну, однако, я требую, чтобы разделенные документы сохраняли свои узкие поля и двухколонную компоновку. Скорее по счастливой случайности, чем по здравому смыслу (!), мне удалось добиться этого вручную, и конечный результат был именно таким, как я хотел. Затем я использовал средство записи макросов, но не знал Word VBA, чтобы изменить записанный код для достижения этой цели. Вы можете помочь? Заранее спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Я попробовал первый разделенный код документа, и это не сработало. Он сказал, что разбивает его на три части, но это не так.
Этот комментарий был сведен к минимуму модератором на сайте
Первый VBA разделит текущий документ разделителем "///". Вы добавили в свой документ разделитель разделения «///»?
Этот комментарий был сведен к минимуму модератором на сайте
Забудь, я несколько раз пробовал с цифрами букв, ничего не получалось, потом видел, как стерли мои комментарии. Просто отметим, что первый код у меня не сработал, он сказал, что разбивает документ на три раздела, но это не так.
Этот комментарий был сведен к минимуму модератором на сайте
Кто-нибудь знает, как изменить имя файлов после разделения основного, я хочу изменить имена в соответствии с заголовком файла
Этот комментарий был сведен к минимуму модератором на сайте
Я сделал код VBA: разделил документ на несколько документов в соответствии с разделителем, он разделил документ, но, к сожалению, графика удалена, а также форматирование. Есть ли этому решение?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за код макроса
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, это было очень полезно!
Этот комментарий был сведен к минимуму модератором на сайте
Вы только что сэкономили мне кучу времени, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Благодаря !

Один вопрос: у вас есть идея сохранить все разделенные документы в PDF?
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал код из раздела «Разделить документ Word по страницам с помощью VBA». Это сработало, чтобы разделить документы, но испортило форматирование, в результате чего то, что должно было быть на 2 страницах, вместо этого оказалось на 5. Я поигрался с кодом и в итоге нашел решение.


Я заменил эту строку: docSingle.Range.Paste 'вставить содержимое буфера обмена в новый документ

с этой строкой: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Надеюсь, это поможет некоторым из вас, у кого были проблемы с форматированием.
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал код из раздела «Разделить документ Word по страницам с помощью VBA». Как мне изменить код, чтобы сохранить исходный заголовок во всех новых файлах?
Этот комментарий был сведен к минимуму модератором на сайте
как отдельные надстройки слияния
Этот комментарий был сведен к минимуму модератором на сайте
Разделить (документ) Функция Kutools for Word может помочь пользователям разделить документ Word по заголовку 1, разрыву страницы, разрыву раздела или странице.
Кроме того, Kutools for Word также включает функцию слияния для объединения нескольких документов Word в один.
Этот комментарий был сведен к минимуму модератором на сайте
мне нужно разделить документ, используя диапазон страниц. например, я хотел разделить от 1 до 10 страниц в другом документе. как я могу это сделать
Этот комментарий был сведен к минимуму модератором на сайте
Привет, у меня такой же вопрос, как это сделать?
Этот комментарий был сведен к минимуму модератором на сайте
Можете ли вы разделить документ на основе стилей заголовка 1 в качестве «разделителя».
Этот комментарий был сведен к минимуму модератором на сайте
Привет Андрей,
Сценарий VBA может разделить весь документ по страницам. Если вам нужно разделить заголовок 1, мы предлагаем попробовать Kutools for Word's Split (Document).
Этот комментарий был сведен к минимуму модератором на сайте
Скачанный фодлер вообще не открывается. Ожидание в течение длительного времени.
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL