Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

При использовании документа Microsoft Word вы можете сохранять каждую страницу в виде отдельных файлов PDF один за другим с помощью встроенной функции Save As. Однако, если сотни страниц нужно разделить и сохранить в виде отдельных файлов PDF, как вы можете это сделать? В этой статье приведена методика быстрого решения этой проблемы.

Сохраните каждую страницу в виде отдельных PDF-файлов навалом с кодом VBA


Разделите и сохраните каждую страницу документа в виде отдельных новых документов:

Сплит-документ полезности Kutools for Excel может помочь вам легко разделить и сохранить каждую страницу текущего документа в виде отдельного нового документа навалом.

  • Выберите место для сохранения разделенных документов;
  • Выбрать страница из Трещина в раскрывающемся списке;
  • щелчок OK начать. Смотрите скриншот:

Kutools for Word: с более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 30-дни. Скачать и бесплатно пробную версию!


Сохраните каждую страницу в виде отдельных PDF-файлов навалом с кодом VBA

Следующий код VBA позволяет быстро сохранить каждую страницу в документе в виде отдельных файлов PDF одновременно. Пожалуйста, сделайте следующее.

1. Откройте документ, который вы сохраните на каждой странице или на определенных страницах в виде файлов PDF, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль, скопируйте ниже код 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 for Word диалоговое окно, введите номер начальной страницы вашего документа в текстовое поле и нажмите OK.

6. В секунду Kutools for Word в диалоговом окне введите номер последней страницы вашего документа, затем нажмите ОК. Смотрите скриншот:

Внимание: Если вы просто хотите сохранить несколько страниц в документе в виде отдельных PDF-файлов, таких как страницы 4, 5 и 6, введите 4 и 6 отдельно в два указанных выше диалоговых окна.

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



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bharadwaj · 1 months ago
    down loaded the kutools for trial - installed and when trying to something the word is closing and the tool never worked.

    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Good day,
      Thanks to let me know the bug, and sorry for the inconvenience. Would you provide your Word version? We need to figure out the problem with more information.