Как разделить файл word на отдельные файлы

Split Word document online — это веб-сервис, который позволяет разделить документ Word на отдельные страницы. Это простое приложение имеет несколько режимов работы, вы можете разделить документ Word на отдельные страницы, то есть каждая страница исходного документа будет отдельным Word документом, вы можете разделить документ на четные и нечетные страницы, эта функция пригодится, если вам нужно распечатать документ в виде книгу, вы также можете указать номера страниц в настройках, и приложение Split Word создаст отдельные Word документы только с этими страницами, а четвертый режим работы позволяет создать новый Word документ, в котором будут только те страницы, которые вы указали.
Простой способ бесплатно извлекать страницы из документа онлайн
Поскольку это онлайн-приложение, вы можете разделить документы Word между Windows, Mac, iOS, Linux или мобильными операционными системами. Ваши документы обрабатываются с помощью API Aspose, мы не храним ваши документы и не передаем их третьим лицам, ваши документы полностью безопасны.

Word

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

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

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

Привет, уважаемые читатели. Если у вас есть большой документ, который вам нужно разделить, то давайте узнаем, существует ли какой-нибудь способ его поделить на отдельные файлы. Для этого мы воспользуемся возможностями Visual Basic Application для Word. Эта программа использует специальные код, которые диктуют Ворду, что нужно сделать. Итак, приступим.

Скрипт, который разделит файл в местах-маркерах

Прежде, чем запускать этот код, нужно подготовить документ к разделению на отдельные файлы.

В тех местах, где воровский файл будет разделен на несколько отдельных файлов, мы расставим маркеры в виде «///». Это скажет VBA, что в тех местах, где он встретит /// он поймет, что ему нужно будет дальнейшую часть сохранить в новый файл Word. Смотрите на скриншот, где я отметил маркером то место, где я хочу разбить документ.

Этот знак ставится в английской раскладке!

Новые файлы будут сохранены в папку с оригинальным документом, поэтому, советую тот документ, который вы будете разделять, сохраните в отдельную папку, как на скриншоте.

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

Шаг 1. 

В окне Ворда нажмите на сочетание клавиш ALT + F11 для запуска Visual Basic Application.

Шаг 2.

В меню «Insert» — «Module». Теперь скопируйте код скрипта (его вы встретите ниже) и вставьте его в окне VBA.

Шаг 3.

Запустите выполнение кода, нажав F5 на клавиатуре, либо на панели на зеленый треугольник.

Этот 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

А вот результат разделения документа Ворд на отдельные файлы:

Скрипт, который разделит документ постранично

Порядок шагов, для запуска скрипта в Word тот же, что и в предыдущем способе. Скопируйте следующий ниже код и запустите его выполнение.

Этот код 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

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

Немного юмора:

Большинство пользователей уверены, что если при загрузке Windоws водить курсором по кругу, то компьютер загрузится быстрее.

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

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

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

Разделите документ 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 включает мощную функцию — Трещина С помощью этой утилиты вы можете быстро разделить большой документ Word на несколько отдельных файлов на основе заголовка 1, разрыва страницы, разрыва раздела и страницы.

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

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

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

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

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

Нажмите, чтобы скачать Kutools for Word и бесплатная пробная версия прямо сейчас!

Чтобы сохранить определённую часть текста внутри Microsoft Word в отдельном документе, не нужно знать никаких хитростей, касающихся работы с этим текстовым редактором. Просто выделяем блоком эту часть текста, копируем её в одном документе и вставляем в другом. Затем сохраняем новый DOCX-файл. Но что делать, если речь идёт о большом исходном документе? И нужно провести долгую, монотонную работу по его расформированию. Можно ли как-то упростить ручной труд по выделению разделов, подразделов или просто произвольных отрывков документа Microsoft Word в отдельные файлы? Не во многом, но можно. Ниже рассмотрим несколько таких способов.

В нашем случае имеем увесистый, тяжело открываемый Word-документ на почти что 150 тыс. слов. Он структурирован разделами и подразделами, и его необходимо расформировать на мелкие документы, содержащие текст отдельных подзаголовков. Проводить работу будем в среде Word актуальной версии пакета Microsoft Office 2016. Действия в старших версиях текстового редактора – 2010 и 2013 – будут аналогичны, каких-то принципиальных отличий в предлагаемых ниже операциях нет.

Чтобы было удобно расформировывать участки документа в отдельные файлы, клавишами Ctrl+F включаем панель навигации и для отображения структуры переключаемся на вкладку панели «Заголовки».

1. Быстрая установка блока выделения на раздел или подраздел документа

Если у документа есть структура разделов и подразделов, возможности контекстного меню на панели навигации здорово упростят работу по установке блоков выделения. В контекстном меню на выбранном заголовке или подзаголовке, который нужно сохранить в отдельный файл, выбираем пункт «Выделить заголовок и его содержимое».

Блок выделения будет автоматически установлен на весь текст, относящийся к выбранному разделу или подразделу. Далее этот блок копируем или вырезаем, вставляем в новый текстовый документ, форматируем при необходимости и сохраняем.

2. Сохранение разделов или подразделов документа в PDF

В контекстном меню выбранного заголовка или подзаголовка есть ещё один пункт, с помощью которого можно упростить выведение их содержимого в отдельный документ – в файл PDF. Реализована такая возможность в составе опции печати текстового редактора.

В Windows 10 в качестве принтера выбираем «Microsoft Print to PDF» – штатный PDF-принтер этой версии системы.

Называем и сохраняем файл.

PDF-файл таким образом сохраняется не как картинка, а как текст. Его в любой момент позднее можно открыть внутри того же Word.

И при необходимости пересохранить в любом другом формате, поддерживаемом текстовым редактором.

В Windows 8.1 и 7 эта процедура проделывается таким же образом. Однако в этих версиях системы штатного PDF-принтера нет, и прежде его необходимо установить. Делается это с помощью сторонних программ, например, BullZip PDF Printer, PDFCreator, doPDF и т.п.

3. Макрос копирования и вставки текста в новый документ

Если расформировываемый документ не имеет структуры разделов, можно либо её сформировать, либо оставить всё как есть, и ставить блоки выделения вручную. Но даже в последнем случае какую-то часть работы всё равно можно автоматизировать. Копирование или вырезание из исходного документа текста и его вставку в новый Word-файл можно поручить макросам. А их задействование наряду с быстрой установкой блока на целый раздел (подраздел) и вовсе минимизирует труды.

Если макросы в приложении Word задействуются впервые, первым делом необходимо разрешить их использование. В меню «Файл» открываем «Параметры».

Запускаем параметры центра управления безопасностью.

Включаем макросы.

Далее отправляемся во вкладку «Вид» и кликаем «Запись макроса». В появившемся небольшом окошке записи макроса выбираем вариант его задействования в будущем – кнопка на панели быстрого доступа или горячие клавиши – и жмём «Ок».

• Теперь необходимо провести комплекс действий, которые макрос сначала запишет, а затем будет воспроизводить в дальнейшем:
• Выделяем заголовок, подзаголовок или произвольную область текста;
• Нажимаем кнопку (или горячие клавиши) вырезки или копирования;
• Нажимаем кнопку открытия нового документа (для удобства её можно вынести на панель быстрого доступа);
• Вставляем содержимое буфера в новый документ;
• Останавливаем запись макроса с помощью кнопки внизу окна.

Теперь этот макрос с помощью назначенной кнопки (или горячих клавиш) можно запускать для каждого нового блока выделения в исходнике. И всё само будет вырезаться и вставляться в новых документах. Их останется только сохранить потом. Сохранять файлы с нужными нам именами макросы, увы, пока что не умеют.

Видео