Як зберегти кожну сторінку як окремий файл PDF у документі Word?

Використовуючи документ Microsoft Word, ви можете зберігати кожну сторінку як окремі PDF-файли по одному за допомогою вбудованої функції Зберегти як. Однак якщо сотні сторінок потрібно розділити та зберегти як окремі PDF-файли, як ви можете це зробити? У цій статті наведено спосіб швидкого вирішення цієї проблеми.

Збережіть кожну сторінку у вигляді окремих PDF-файлів навалом із кодом VBA

Збережіть кожну сторінку у вигляді окремих PDF-файлів навалом із кодом VBA

Наведений нижче код VBA допомагає швидко одночасно зберігати кожну сторінку документа як окремі PDF-файли. Будь ласка, виконайте наступне.

1. Відкрийте документ, в якому ви збережете кожну сторінку або окремі сторінки у вигляді PDF-файлів, а потім натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуль скопіюйте код VBA у вікно модуля.

Код VBA: Збережіть кожну сторінку як окремі PDF-файли одночасно в документі Word

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

3 Натисніть кнопку F5 клавіша для запуску коду.

4 В перегорнути вікно, виберіть папку для збереження PDF-файлів і натисніть на OK кнопку. Дивіться знімок екрана:

5. У першій Kutools для Word діалогове вікно, введіть номер текстової сторінки документа у текстове поле та натисніть OK.

6 У другому Kutools для Word діалогове вікно, введіть номер останньої сторінки документа, а потім натисніть ОК. Дивіться знімок екрана:

примітки: Якщо ви просто хочете зберегти кілька сторінок у документі безперервно у вигляді окремих PDF-файлів, таких як сторінки 4, 5 та 6, введіть 4 та 6 окремо у два вищезазначені діалогові вікна.

Після запуску коду перейдіть до вказаної папки, яку ви вибрали на кроці 4, і ви побачите, що всі сторінки розділені та збережені як окремі PDF-файли, як показано нижче.

Найкращі інструменти продуктивності офісу

Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

➕ Творчі вставки: Вставити Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  / Дізнайтеся більше в Вставити групу...

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

⭐ Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення...

👉 Хочете спробувати ці функції? Kutools для Word пропонує a 60-денна безкоштовна пробна версія, без обмежень! ????

Безкоштовне завантаження     Детальніше     Купити зараз