Wie speichere ich jede Seite als separate PDF-Dateien in einem Word-Dokument?

Während Sie ein Microsoft Word-Dokument verwenden, können Sie jede Seite einzeln mit der integrierten Funktion Speichern unter als separate PDF-Dateien speichern. Wie können Sie jedoch vorgehen, wenn Hunderte von Seiten aufgeteilt und als einzelne PDF-Dateien gespeichert werden müssen? Dieser Artikel bietet eine Methode, mit der Sie dieses Problem schnell lösen können.

Speichern Sie jede Seite als separate PDF-Dateien in großen Mengen mit VBA-Code

Speichern Sie jede Seite als separate PDF-Dateien in großen Mengen mit VBA-Code

Mit dem folgenden VBA-Code können Sie schnell jede Seite in einem Dokument gleichzeitig als einzelne PDF-Dateien speichern. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie das Dokument, in dem Sie jede Seite oder bestimmte Seiten als PDF-Dateien speichern, und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul, Kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA-Code: Speichern Sie jede Seite gleichzeitig als separate PDF-Dateien in einem Word-Dokument

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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.

4. In dem Entdecken Wählen Sie im Fenster einen Ordner zum Speichern der PDF-Dateien aus und klicken Sie auf OK Taste. Siehe Screenshot:

5. Im ersten Kutools for Word Geben Sie im Dialogfeld die Startseitennummer Ihres Dokuments in das Textfeld ein und klicken Sie auf OK.

6. In dieser Sekunde Kutools for Word Geben Sie im Dialogfeld die letzte Seitenzahl Ihres Dokuments ein und klicken Sie auf OK. Screenshot:

Note: Wenn Sie nur mehrere fortlaufende Seiten im Dokument als separate PDF-Dateien wie Seite 4, 5 und 6 speichern möchten, geben Sie 4 und 6 separat in die beiden oben genannten Dialogfelder ein.

Nachdem Sie den Code ausgeführt haben, gehen Sie bitte zu dem angegebenen Ordner, den Sie in Schritt 4 ausgewählt haben. Sie können sehen, dass alle Seiten aufgeteilt und als einzelne PDF-Dateien gespeichert sind (siehe Abbildung unten).

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

➕ Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀

Free Download     Weiterlesen     JETZT KAUFEN