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

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

• С помощью функции копирования и вставки — вручную
• Функция «Печать в PDF» — сохраните извлеченные страницы в PDF.
• По коду VBA — сохранить извлеченные страницы в определенную папку

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

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

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

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

Самый простой способ извлечь определенные страницы или контент из документа Word — использовать функцию копирования и вставки.

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

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

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

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

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

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

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

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

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

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

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

Открыв документ, перейдите к Файл > Печать / PDF.

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

В Принтер раскрывающийся список, выберите Microsoft Print to PDF.

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

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

• Распечатать все страницы: Распечатать все страницы документа.

• Распечатать выбор: Распечатать выделенное. Если вы не выберете какой-либо диапазон, эту опцию нельзя будет использовать.

• Распечатать текущую страницу: Распечатать текущую страницу.

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

  

Шаг 4: Распечатайте

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

Извлечение страниц по коду VBA — сохраните извлеченные страницы в определенную папку.

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

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

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

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

Шаг 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, чтобы запустить код

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

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

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

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

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

Нажмите Кутулс Плюс > Split чтобы активировать функцию.

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

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

2. страница: Если вы выберете На заказ в Разделить на раскрывающегося списка, вам следует ввести номера страниц в это текстовое поле.

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

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

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

   

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

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

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