Разделение и извлечение страниц из документов 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. ОК: нажмите, чтобы завершить разделение.

   

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

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

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