Как сохранить каждую страницу документа Word в виде отдельного PDF-файла?

АвторSiluviaДата изменения2025-04-11

В Microsoft Word каждую страницу можно вручную сохранить как отдельный PDF-файл с помощью встроенной функции «Сохранить как», указав нужные номера страниц в диалоговом окне «Параметры». Однако при работе с объёмным документом, насчитывающим сотни страниц, такая операция вручную займёт немало времени. В этой статье описан способ быстро сохранить все страницы как отдельные PDF-файлы.

Сохранение каждой страницы как отдельного файла Файлы PDF пакетно с помощью кода VBA

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

Откройте документ Word, который нужно обработать. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

В окне Visual Basic выберите «Insert» (Вставка) > «Module» (Модуль), а затем вставьте следующий код VBA в окно модуля:

Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub

Окно VBA с выбранными пунктами Insert > Module и скопированным кодом VBA в окно модуля

Нажмите F5, чтобы запустить код.
В открывшемся окне «Обзор» укажите папку для сохранения файлов PDF и нажмите «OK».
В первом диалоговом окне «Kutools для Word» укажите номер начальной страницы и нажмите «OK».
Во втором диалоговом окне «Kutools для Word» укажите номер последней страницы и нажмите «OK».
Примечание: Например, чтобы сохранить несколько последовательных страниц — страницы 4, 5 и 6 — просто введите «4» и «6» в два диалоговых окна.

После выполнения сценария перейдите в папку, выбранную на шаге 4, и убедитесь, что каждая указанная страница сохранена как отдельный PDF-файл.

Страницы разделены и сохранены как отдельные файлы PDF

Легко разделите документ Word на несколько документов

Легко разделите документ Word на несколько документов с помощью утилиты Разделить документ. Вместо ручного копирования и вставки этот инструмент позволяет разделять документ по страницам,заголовкам 1,Разрыв страницыили Разрыв раздела— что значительно повышает эффективность.

Снимок экрана утилиты «Разделить документ», разделяющей документ Word по страницам

Kutools для Word: раскройте весь потенциал Word с сотнями полезных инструментов. Скачайте прямо сейчас и ощутите разницу!

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

📘Мастерство работы с документами: Разделение страниц / Объединение документов / Экспорт выделенного фрагмента в различных форматах (PDF, TXT, DOC, HTML и др.) / Пакетное преобразование в PDF…

✏Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменение размера всех изображений / Транспонировать таблицу строк и столбцов / Преобразовать таблицу в текст…

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

Бесплатно скачать Купить сейчас Подробнее

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать Купить сейчас Подробнее

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас 🎁 Приобрести полный пакет 📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачать Купить сейчас Подробнее о Kutools