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

Как быстро разделить большой документ 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.

Разделитель имя файла можно поменять в коде скрипта, они указываются в строке SplitNotes «///», «Notes «. Также в скачанном файле separation.tхt доступен второй вариант скрипта, используйте его, если документ Word нужно разделить по страницам.

Разделитель Word документов

Разделите Word на несколько файлов. Используйте Word Splitter с любого устройства с браузером.

Загружая файлы или используя наш сервис, вы соглашаетесь с нашими Условиями использования. и Политикой конфиденциальности.

Мы уже обработали 173 767 файлов общим размером 473 580 Мбайт

Кликните между страницами, которые вы хотите разделить Выбрать все

Выбранные страницы: нет

Ваш файл успешно обработан

Отправить ссылку на скачивание

О приложении Splitter

Разделяйте Word страницы документа быстро и легко. Бесплатный онлайн инструмент Word Splitter без регистрации создан для быстрого разделения страниц из Word файла. Вам не нужно тратить свое время на выполнение этих операций вручную на настольном программном обеспечении. Наша цель состоит в том, чтобы предоставить вам надежное решение для оптимизации вашего офисного рабочего процесса с помощью онлайн приложения Word Splitter. Все Word файлы обрабатываются на наших серверах, поэтому никаких дополнительных плагинов или установки программного обеспечения не требуется. Он мощный, современный, быстрый, гибкий, простой в использовании и полностью бесплатный.

• Легкое разделение Word страниц документа
• Отделить страницы от Word файла
• Загрузка или отправка результирующего файла в виде вложения электронной почты

Как это работает

Как разделить Word документ онлайн

Выберите и загрузите Word документ, который хотите разделить.
Укажите необходимые номера страниц и нажмите кнопку Разделить.
Нажмите кнопку Скачать и сохраните разделенный Word документ.
Чтобы отправить ссылку на скачивание документа по электронной почте нажмите кнопку Email.

Вопросы и ответы

Как разделить файл с помощью Word разделителя документов?

Прежде всего, вам нужно выбрать и добавить Word файл для разделения двумя способами: перетащить ваш Word файл в белую область с меткой «Нажмите или перетащите свой файл сюда» или нажмите на эту область, а затем выберите нужный файл Word с помощью проводника. Как только файл будет добавлен, зеленый индикатор выполнения начнет расти. После завершения процесса можно нажать кнопку Сохранить, а затем загрузить файл результата Word.

Сколько времени занимает разделение Word файла?
Обычно этот Word Document Splitter работает быстро для небольших файлов за считанные секунды.
Безопасно ли разделять файл с помощью нашего бесплатного Word Document Splitter?

Да, ссылка для скачивания файла результат Word будет доступна только вам. Загруженный файл будет удален через 24 часа, а ссылка для загрузки перестанет работать по истечении этого периода времени. Никто не имеет доступа к вашему файлу. Разделитель документов Word абсолютно безопасен.

Могу ли я разделить файл Word на Linux, Mac OS или Android?

Да, вы можете использовать наш бесплатный Word Document Splitter на любой операционной системе, в которой есть веб-браузер. Наш Word Document Splitter работает онлайн и не требует установки программного обеспечения.

Какой браузер следует использовать для разделения Word файла?

Для разделения файлов можно использовать любой современный браузер Word, например, Google Chrome, Microsoft Edge, Firefox, Opera или Safari.

Форматы файлов текстовых редакторов

Файл обработки текста содержит информацию о пользователе в текстовом или расширенном текстовом формате. Формат обычного текстового файла содержит неформатированный текст, и к нему нельзя применить настройки шрифта, страницы и т. д. В отличие от этого, формат расширенного текстового файла позволяет параметры форматирования, такие как установка типа шрифта, стилей (полужирный, курсив, подчеркивание и т. д.), поля страницы, заголовки, маркеры и цифры, а также некоторые другие функции форматирования.

Другие форматы, поддерживаемые GroupDocs.Splitter

Вы также можете разделять документы других форматов. Полный список представлен ниже.

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

Может возникнуть ситуация, что нужно разделить многостраничный документ на отдельные документы. Например, каждая страница несет отдельную информацию, а таких десятки или сотни.

Примечание. Если вам необходимо разделить информацию в документе, которая занимает 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 РозбитиДокументНаСторінки(). Найдите его в коде, который показан выше и переименуйте если нужно. Имя не должно содержать пробелов.

покупка

Как разделить документ Word на отдельные файлы каждые 5 или n страниц?

Если у вас есть большой документ Word, содержащий сотни страниц, и теперь вы хотели бы разделить этот документ на отдельные файлы каждые 10 или n страниц. Есть ли какой-нибудь быстрый и простой способ решить эту задачу без копирования и вставки страниц по одной?

Split a Word document into separate files based on Heading1 / Page break / Every n pages etc.

Kutools for Word‘s Split feature can help you to split a large Word document into multiple separate files based on Heading1, page break, section break, each page and every n pages or custom pages as you need. Click to download and free trial now!

Разделите документ Word на отдельные файлы каждые 10 или n страниц с кодом VBA

Чтобы разделить большой документ на отдельные файлы на основе каждых 10 или n страниц, следующий код VBA может оказать вам услугу, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. А затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:

Код VBA: разделите документ на отдельные файлы каждые 10 или n страниц:

Sub DocumentSplitter() Dim xDoc As Document, xNewDoc As Document Dim xSplit As String, xCount As Long, xLast As Long Dim xRngSplit As Range, xDocName As String, xFileExt As String Dim xRegEx As RegExp Dim xPageCount As Integer Dim xShell As Object, xFolder As Object, xFolderItem As Object Dim xFilePath As String On Error Resume Next Set xDoc = Application.ActiveDocument Set xShell = CreateObject("Shell.Application") Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0) If TypeName(xFolder) = "Nothing" Then Exit Sub Set xFolderItem = xFolder.Self xFilePath = xFolderItem.Path & "\" Application.ScreenUpdating = False Set xNewDoc = Documents.Add(Visible:=False) xDoc.Content.WholeStory xDoc.Content.Copy xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting With xNewDoc xPageCount = .ActiveWindow.Panes(1).Pages.Count L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _ vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit) If Len(Trim(xSplit)) = 0 Then Exit Sub Set xRegEx = New RegExp With xRegEx .MultiLine = False .Global = True .IgnoreCase = True .Pattern = "[^0-9]" End With If xRegEx.Test(xSplit) = True Then MsgBox "Please enter the page number:", vbInformation, "Kutools for Word" Exit Sub End If If VBA.Int(xSplit) >= xPageCount Then MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word" GoTo L1 End If xDocName = xDoc. Name xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1) xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_" xFilePath = xFilePath & xDocName For xCount = 0 To Int(xPageCount / xSplit) xPageCount = .ActiveWindow.Panes(1).Pages.Count If xPageCount > xSplit Then xLast = xSplit Else xLast = xPageCount End If Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast) Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page") xRngSplit.Start = .Range.Start xRngSplit.Cut Documents.Add Selection.Paste ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False ActiveWindow.Close Next xCount Set xRngSplit = Nothing xNewDoc.Close wdDoNotSaveChanges Set xNewDoc = Nothing End With Application.ScreenUpdating = True End Sub 

3. После вставки приведенного выше кода все еще в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Tools > Рекомендации, а в выскочившем Ссылки-проект диалоговое окно, отметьте Регулярные выражения Microsoft VBScript 5.5 вариант в Доступные ссылки список, см. снимок экрана:

4. Затем нажмите OK кнопку, а затем нажмите F5 ключ для запуска этого кода и Просмотр папки отображается диалоговое окно, выберите папку, в которую вы хотите поместить разделенные файлы, см. снимок экрана:

5. Затем нажмите OK , и появится еще одно окно подсказки, напоминающее вам о вводе количества страниц, на основе которого вы хотите разделить, см. снимок экрана:

6, Затем нажмите OK , активный документ Word был разделен на отдельные файлы каждые 10 страниц, вы можете перейти в указанную папку, чтобы увидеть результаты:

Разделите документ Word на отдельные файлы каждые 10 или n страниц с удивительной функцией

Kutools for Word включает мощную функцию — Split С помощью этой утилиты вы можете быстро разделить большой документ Word на несколько отдельных файлов на основе заголовка 1, разрыва страницы, разрыва раздела и страницы.

Советы: Чтобы применить это Split функция, во-первых, вы должны скачать Kutools for Word, а затем быстро и легко примените эту функцию.

После установки Kutools for Word, пожалуйста, сделайте так:

1. Нажмите Кутулс Плюс > Split, см. снимок экрана:

2. В появившемся диалоговом окне установите следующие операции, как вам нужно, см. Снимок экрана:

3. После завершения настроек нажмите OK, и весь документ будет разделен на несколько файлов для каждой страницы, см. снимок экрана:

Лучшие инструменты для офисной работы

Kutools for Word — Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

Преобразуйте свои задачи Word с помощью Kutools. �� Загрузите 30-дневную пробную версию прямо сейчас ��.