Разделение и извлечение страниц из ваших документов Word (4 способа)

Управление длинным документом Word иногда требует извлечения определенных страниц для отдельного просмотра или распространения. Независимо от того, нужно ли вам извлечь одну страницу, диапазон страниц или разделить весь документ на основе заданных критериев, Microsoft Word предлагает несколько эффективных вариантов. Ниже приведены четыре практичных метода, которые помогут вам легко извлечь или разделить страницы из вашего документа Word.

Извлечение определенных страниц / текущей страницы из Word

• С помощью функции Копировать и Вставить - вручную
• С помощью функции Печать в PDF - сохранить извлеченные страницы в PDF
• С помощью кода VBA - сохранить извлеченные страницы в определенную папку

Разделение всего документа Word на отдельные файлы по страницам, заголовкам, разрывам

Видео: Извлечение страниц в Word

Извлечение определенных страниц / текущей страницы из Word

Это руководство предоставляет подробный обзор трех эффективных методов для извлечения либо определенных страниц, либо текущей страницы из вашего документа.

Извлечение страниц с помощью функции Копировать и Вставить – вручную

Простейший способ извлечения определенных страниц или содержимого из документа Word — использование функции копирования и вставки.

Шаг 1: Выберите содержимое, которое хотите извлечь

Поместите курсор в начало содержимого, которое хотите скопировать, затем прокрутите до конца содержимого и, удерживая клавишу Shift, щелкните в конце содержимого.

Шаг 2: Скопируйте выбранное содержимое

Щелкните правой кнопкой мыши на выбранном содержимом и выберите Копировать, или просто нажмите Ctrl + C

Шаг 3: Вставьте в новый документ

Откройте новый документ Word и вставьте содержимое, используя Ctrl + V.

Шаг 4: Сохраните новый документ

Сохраните созданный документ, нажав «Файл» > «Сохранить как».

Извлечение страниц с помощью функции Печать в PDF - сохранить извлеченные страницы в PDF

Другой способ извлечения страниц — печать их в PDF. Этот метод удобен, когда вам нужно поделиться или сохранить извлеченные страницы в широко распространенном формате.

Шаг 1: Перейдите в меню Печать

С открытым документом перейдите в «Файл» > «Печать».

Шаг 2: Выберите Microsoft Print to PDF

В выпадающем списке Принтер выберите «Microsoft Print to PDF».

Шаг 3: Укажите диапазон страниц

В настройках выберите нужный диапазон печати:

• Печать всех страниц: Печать всех страниц документа.

• Печать выделенного: Печать выделенного фрагмента, если вы не выбрали никакой диапазон, этот вариант использовать нельзя.

• Печать текущей страницы: Печать текущей страницы.

• Пользовательская печать: Печать пользовательских диапазонов страниц по мере необходимости. При выборе этого варианта появится текстовое поле «Страницы», где можно указать номера страниц для печати.

  

Шаг 4: Печать

Нажмите «Печать» и выберите место для сохранения PDF. Указанные страницы будут сохранены как новый документ PDF.

Извлечение страниц с помощью кода VBA - сохранить извлеченные страницы в определенную папку

Если вы знакомы с VBA, вы можете использовать скрипт для автоматизации процесса извлечения страниц. Этот метод особенно полезен при работе с большими документами.

Шаг 1: Нажмите Alt + F11, чтобы открыть редактор VBA

Шаг 2: Вставьте новый модуль

В открывшемся окне «Microsoft Visual Basic for Applications» нажмите вкладку «Вставить», затем выберите «Модуль».

Шаг 3: Вставьте код

Скопируйте код ниже и вставьте его в окно модуля.

Sub SaveSpecifiedPagesAsNewDoc()
'UpdatebyKutools
    Dim objNewDoc As Document
    Dim objDoc As Document
    Dim strFolder As String
    Dim strFileName As String
    Dim startPage As Long
    Dim endPage As Long
    Dim startRange As Range
    Dim endRange As Range
    
    ' Initialize
    Set objDoc = ActiveDocument
    
    ' Specify the folder path and file name here
    strFolder = "C:\Users\AddinsVM001\Desktop\pdf\extract pages" ' Example path
    strFileName = "ExtractedPages" ' Example file name
    
    ' Specify start and end pages here
    startPage = 3
    endPage = 4
    
    ' Find the range of the specified pages
    With objDoc
        ' Go to the start of the start page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Select
        Set startRange = Selection.Range
        
        ' Go to the start of the page after the end page, to get the complete end page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Set endRange = Selection.Range
        
        ' Define the range from start to end page
        Set startRange = .Range(Start:=startRange.Start, End:=endRange.End)
       
        
    End With
    
    ' Copy the defined range
    startRange.Copy
    
    ' Open a new document to paste the selection
    Set objNewDoc = Documents.Add
    objNewDoc.Content.Paste
    
    ' Save the new document
    objNewDoc.SaveAs2 FileName:=strFolder & "\" & strFileName & ".docx"
    objNewDoc.Close False
    
    ' Clean up
    Set objNewDoc = Nothing
    Set objDoc = Nothing
    Set startRange = Nothing
    Set endRange = Nothing
    
    MsgBox "Pages " & startPage & " to " & endPage & " have been extracted to " & strFileName & ".docx"
End Sub

Шаг 4: Нажмите кнопку запуска или клавишу F5 для выполнения кода

После выполнения кода появится диалоговое окно, сообщающее, что страницы были извлечены, нажмите «ОК», чтобы закрыть его.

Шаг 5: Перейдите в папку и проверьте, правильно ли извлечены страницы

Разделение всего документа Word на отдельные файлы по страницам, заголовкам или разрывам

Если вы хотите извлечь страницы в отдельные файлы на основе Заголовка 1, разрывов страниц, разрывов разделов или определенных номеров страниц, функция «Разделить документ» Kutools for Word поможет вам быстро и эффективно выполнить задачу.

Шаг 1: Активируйте функцию Разделить документ

Нажмите «Kutools Plus» > «Разделить», чтобы активировать функцию.

Шаг 2: Настройте разделение

1. Разделить по: Выберите критерий, по которому вы хотите разделить.

2. Страница: Если вы выбрали «Пользовательский» как метод разделения, введите конкретные номера страниц, которые хотите извлечь.

3. Сохранить в: Выберите папку для сохранения разделенных документов.

4. Префикс документа: Введите префикс для именования разделенных документов.

5. OK: Нажмите, чтобы завершить разделение.

   

Шаг 3: Перейдите в папку и проверьте разделенные документы

Каждый метод предлагает решение для разных потребностей: ручное копирование для простых извлечений, печать в PDF для обмена определенными страницами, VBA для автоматического извлечения и разделение документа для организации больших документов. Следуя этим шагам, вы сможете более эффективно управлять своими документами и адаптировать содержимое под свои конкретные требования.

Для дополнительных стратегий работы с Word, которые могут значительно улучшить управление данными, узнайте больше здесь.