Как разделить документ 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 нужно разделить по страницам.

Если у вас есть большой документ 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 и бесплатная пробная версия прямо сейчас!