Как быстро разделить большой документ Word на несколько файлов
Разделение объемного документа Word на несколько частей может обернуться для пользователя настоящей головной болью, особенно если разбить его нужно не по страницам, а по содержимому контента. Для этого вам бы пришлось вручную копировать фрагменты текста из исходного документа и вставлять их в созданные файлы, а потом сохранять их. Если исходный документ достаточно велик, и разбить его нужно не на один десяток частей, это отнимет у вас массу времени.
Поэтому следующий вопрос будет вполне оправдан и закономерен: а нельзя ли как-то автоматизировать эту утомительную и однообразную процедуру?
Можно, причем без использования сторонних инструментов, средствами скриптового языка Visual Basic for Application , созданного самими разработчиками Microsoft Office.
Предположим, у вас есть документ, который нужно разделить на 10 частей.
Первым делом скачайте по ссылке disk.yandex.ru/d/iMCDVXLSlIjp_w текстовый файл separation.tхt с кодом скрипта и сохраните его в удобную для вас папку.
Откройте разделяемый документ Word и вставьте в него разделитель ///, по этому идентификатору скрипт будет разбивать документ. Скрипт читает документ сверху вниз и как только обнаруживает ID, отделяет и записывает прочитанное в отдельный файл.
Проставив разделители, откройте Блокнотом файл со скриптом и скопируйте из него код первого варианта, начиная от Sub до End Sub. Вернувшись в документ Word, нажмите комбинацию клавиш Alt + F11 , чтобы вызвать окно VBA .
Выберите в его меню Insert -> Module и вставьте в открывшееся окошко скопированный код скрипта.
Запустите скрипт на исполнение, нажав на панели инструментов кнопку «Run Sub» или клавишу F5 на клавиатуре.
Подтвердите выполнение операции в диалоговом окне.
В результате документ будет разделен на 10 частей с именами Notes №.
Готово, можете закрыть окно VBA и исходный документ без сохранения изменений, то есть без проекта VBA.
Как разделить файл Word на отдельные файлы
Привет, уважаемые читатели. Если у вас есть большой документ, который вам нужно разделить, то давайте узнаем, существует ли какой-нибудь способ его поделить на отдельные файлы. Для этого мы воспользуемся возможностями Visual Basic Application для Word. Эта программа использует специальные код, которые диктуют Ворду, что нужно сделать. Итак, приступим.
Скрипт, который разделит файл в местах-маркерах
Прежде, чем запускать этот код, нужно подготовить документ к разделению на отдельные файлы.
В тех местах, где воровский файл будет разделен на несколько отдельных файлов, мы расставим маркеры в виде «///». Это скажет VBA, что в тех местах, где он встретит /// он поймет, что ему нужно будет дальнейшую часть сохранить в новый файл Word. Смотрите на скриншот, где я отметил маркером то место, где я хочу разбить документ.
Этот знак ставится в английской раскладке!
Новые файлы будут сохранены в папку с оригинальным документом, поэтому, советую тот документ, который вы будете разделять, сохраните в отдельную папку, как на скриншоте.
В конце документа разделяющий маркер ставить нет смысла, иначе VBA создаст просто пустой файл Word.
Шаг 1.
В окне Ворда нажмите на сочетание клавиш ALT + F11 для запуска Visual Basic Application.
Шаг 2.
В меню «Insert» — «Module». Теперь скопируйте код скрипта (его вы встретите ниже) и вставьте его в окне VBA.
Шаг 3.
Запустите выполнение кода, нажав F5 на клавиатуре, либо на панели на зеленый треугольник.
Этот VBA код разделит документ на отдельные файлы в тех местах, где были установлены маркеры. Выделите его левой кнопкой мыши и скопируйте (правой кнопкой мыши — Копировать).
А вот результат разделения документа Ворд на отдельные файлы:
Как разделить документ ворд на несколько документов
Если у вас есть объемный текстовый документ, который вам нужно разделить на несколько документов, уделите несколько минут, чтобы прочитать это руководство. Это руководство покажет вам два метода разделения документа на несколько документов.
- Разделить документ Word по указанному разделителю с помощью VBA
- Разделить документ Word по страницам с помощью VBA
- Разделить документ Word по заголовку/странице/разрыву раздела/разрыву страницы с помощью Kutools for Word
Разделить документ Word по указанному разделителю с помощью VBA
Вместо разделения документа на несколько документов вручную этот метод вводит VBA для разделения документа Word по указанному разделителю в Word. Пожалуйста, сделайте следующее:
1, нажмите Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic для приложения;
2. Нажмите Вставить > Модули, а затем вставьте ниже код VBA в новое открывающееся окно модуля.
VBA: разделить документ Word на несколько документов по разделителю
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
3. Затем нажмите Run или нажмите F5 ключ для применения VBA.
Примечание: Разделенные документы будут сохранены в том же месте, что и исходный файл.
Разделить документ Word по заголовку/странице/разрыву раздела/разрыву страницы с помощью Kutools for Word
Если у вас есть Kutools for Word установлен, вы можете применить его Трещина функция, позволяющая легко разделить один документ на несколько по странице, заголовку, разрыву раздела или разрыва страницы, как вам нужно в Word ..
1.Щелкните Kutools Дополнительная > Трещина для Трещина функцию. 
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 Tab поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word в одном окне Word и легко переключаться между ними, щелкая их вкладки. Нажмите, чтобы получить полную бесплатную пробную версию!
Относительные статьи:
Разделить документ Word на отдельные файлы каждые 5 или n страниц
Если у вас есть большой документ Word, содержащий сотни страниц, и теперь вы хотели бы разделить этот документ на отдельные файлы каждые 10 или n страниц. Есть ли какой-нибудь быстрый и простой способ решить эту задачу без копирования и вставки страниц по одной?
Разделите документ Word и сохраните как отдельный файл PDF
В Word вы можете сохранить весь документ в PDF-файл, но пробовали ли вы когда-нибудь разделить документ, а затем сохранить страницы как отдельный PDF-файл? В этой статье я быстро расскажу о методах решения этой задачи.
Разделить страницу на 4 части в документе Word
В некоторых случаях нам нужно разделить страницу на четыре части, чтобы разместить текст в документе, как показано на скриншоте ниже. Однако нет встроенной функции, которая могла бы помочь вам напрямую справиться с этой задачей. В этой статье я расскажу, как завершить эту работу в Word.
Разделить таблицу в документе Word по горизонтали или вертикали
Если у вас есть большая таблица в документе Word, теперь вы хотите разделить таблицу по горизонтали или вертикали на две или более таблиц. Как бы вы могли решить эту задачу в файле Word?
Как разделить многостраничный документ в Microsoft Office Word на отдельные документы?
Может возникнуть ситуация, что нужно разделить многостраничный документ на отдельные документы. Например, каждая страница несет отдельную информацию, а таких десятки или сотни.
Примечание. Если вам необходимо разделить информацию в документе, которая занимает 1,5, 2 или большее количество страниц, то способ не поможет. Предложенный макрос разделяет лишь по 1 странице.
Алгоритм работы:
1. Скопировать многостраничный документ, который нужно разделить в отдельную папку. Открыть его. Дальше: «Вид → Макросы → Макросы».
2. Если у вас до сих пор не было макросов и в открывшемся окне они не отображаются, то нужно нажать «Создать». Если макросы уже присутствуют, то нужно выделить любой из них и нажать «Изменить» или нажать сочетание клавиш Alt + F11. Запустится окно программы Microsoft Visual Basic.
3. Скопировать следующий код макроса:
Sub РозбитиДокументНаСторінки()
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
4. Найти где заканчивается последний макрос (если поле пустое, то просто вставить скопированный код нашего макроса) и вставить скопированный код. После этого можно закрыть окно Microsoft Visual Basic.
5. Далее перейти в «Вид → Макросы → Макросы» и найти только что добавленный (имя: РозбитиДокументНаСторінки), выделить его и нажать на кнопку «Выполнить».
6. После выполнения команд ваш документ будет разделен постранично (каждая страница на отдельном документе). Все документы будут добавлены в папку основного документа и будут иметь его название + номер страницы (смотрите снимок экрана ниже).
Макрос можно переименовать. Название макроса находится в начале и выделено полужирным: Sub РозбитиДокументНаСторінки(). Найдите его в коде, который показан выше и переименуйте если нужно. Имя не должно содержать пробелов.