Zum Hauptinhalt springen

Wie speichert man jede Seite als separate PDF-Dateien in einem Word-Dokument?

Author: Siluvia Last Modified: 2025-05-28

In Microsoft Word können Sie manuell jede Seite als separates PDF speichern, indem Sie die integrierte Funktion „Speichern unter“ verwenden und die Seitenzahl im Optionsdialogfeld angeben. Wenn Sie jedoch mit einem großen Dokument arbeiten, das Hunderte von Seiten enthält, kann dies manuell zeitaufwendig sein. Dieser Artikel stellt eine Methode vor, um schnell alle Seiten als einzelne PDF-Dateien zu speichern.

Speichern Sie jede Seite mit VBA-Code als separate PDF-Dateien im Bulkverfahren.

Speichern Sie jede Seite mit VBA-Code als separate PDF-Dateien im Bulkverfahren.

Sie können den folgenden VBA-Code verwenden, um automatisch jede Seite eines Word-Dokuments als individuelle PDF-Datei zu speichern. So geht’s:

  1. Öffnen Sie das Word-Dokument, das Sie bearbeiten möchten. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
  2. Klicken Sie im Visual-Basic-Fenster auf „Einfügen“ > „Modul“ und fügen Sie dann den folgenden VBA-Code in das Modulfenster ein: 
    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 window with Insert > Module selected and VBA code copied into the Module window
  3. Drücken Sie F5, um den Code auszuführen.
  4. Wählen Sie im erscheinenden Durchsuchen-Fenster einen Ordner aus, um die PDF-Dateien zu speichern, und klicken Sie auf „OK“.
    Browse window
  5. Geben Sie im ersten Dialogfeld „Kutools für Word“ die Startseitenzahl ein und klicken Sie auf „OK“.
    Kutools for Word dialog box with a text box for entering the start page number
  6. Geben Sie im zweiten Dialogfeld „Kutools für Word“ die Endseitenzahl ein und klicken Sie auf „OK“.
    Second Kutools for Word dialog box with a text box for entering the last page number

    Hinweis: Um beispielsweise einige aufeinanderfolgende Seiten – Seiten 4, 5 und 6 – zu speichern, geben Sie einfach „4“ und „6“ in die beiden Dialogfelder ein.

Nachdem das Skript ausgeführt wurde, gehen Sie zum in Schritt 4 ausgewählten Ordner. Sie werden feststellen, dass jede angegebene Seite als separate PDF-Datei gespeichert wurde.

Pages are split and saved as individual PDF files
Teilen Sie ein Word-Dokument ganz einfach in mehrere Dokumente auf.
Teilen Sie ein Word-Dokument mit dem Hilfsprogramm „Dokument teilen“ ganz einfach in mehrere Dokumente auf. Anstatt manuell zu kopieren und einzufügen, ermöglicht Ihnen dieses Tool, Ihr Dokument basierend auf Seiten, Überschrift 1, Seitenumbrüchen oder Abschnittsumbrüchen aufzuteilen – was die Effizienz erheblich steigert.
A screenshot of the Split Document utility splitting a Word document by page
Kutools für Word: Verbessern Sie Ihre Word-Erfahrung mit Hunderten von praktischen Tools. Laden Sie es jetzt herunter und sehen Sie den Unterschied!

Beste Büroproduktivitätswerkzeuge

Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Beste Büroproduktivitätswerkzeuge

Kutools für Word - 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Erfahren Sie mehr über Kutools