KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie speichert man jede Seite eines Word-Dokuments als separate PDF-Datei?

AutorSiluvia Änderungsdatum

In Microsoft Word können Sie jede Seite manuell als separates PDF speichern, indem Sie die integrierte Funktion „Speichern unter“ nutzen und im Optionsdialog die gewünschte Seitennummer angeben. Bei umfangreichen Dokumenten mit Hunderten von Seiten ist dieser Prozess jedoch äußerst zeitaufwändig. In diesem Artikel stellen wir Ihnen eine effiziente Methode vor, mit der Sie alle Seiten blitzschnell als einzelne PDF-Dateien exportieren können.

Speichern Sie jede Seite mithilfe von VBA-Code in großem Umfang als separate PDF-Dateien

Speichern Sie jede Seite mithilfe von VBA-Code in großem Umfang als separate PDF-Dateien

Mit dem folgenden VBA-Code speichern Sie jede Seite Ihres Word-Dokuments automatisch als separate PDF-Datei. So funktioniert’s:

  1. Öffnen Sie das Word-Dokument, das Sie bearbeiten möchten. Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
  2. Klicken Sie im Visual Basic-Fenster auf „Einfügen“ > „Modul“ und fügen Sie anschließend 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-Fenster mit ausgewähltem „Einfügen > Modul“ und in das Modulfenster kopiertem VBA-Code
  3. Drücken Sie F5, um den Code auszuführen.
  4. Wählen Sie im erscheinenden Durchsuchen-Fenster „Ordner auswählen“, um den Speicherort für die PDF-Dateien festzulegen, und klicken Sie auf „OK“.
    Dialogfenster zum Durchsuchen
  5. Geben Sie im ersten Dialogfeld „Kutools für Word“ die gewünschte Startseitennummer ein und klicken Sie auf „OK“.
    Kutools for Word-Dialogfeld mit einem Textfeld zur Eingabe der Startseitennummer
  6. Geben Sie im zweiten Dialogfeld „Kutools für Word“ die Endseitennummer ein und klicken Sie auf „OK“.
    Zweites Kutools for Word-Dialogfeld mit einem Textfeld zur Eingabe der letzten Seitennummer

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

Nachdem das Skript ausgeführt wurde, wechseln Sie in den Ordner, den Sie in Schritt 4 ausgewählt haben. Dort stellen Sie fest, dass jede angegebene Seite als separate PDF-Datei gespeichert wurde:

Seiten werden aufgeteilt und als einzelne PDF-Dateien gespeichert
Teilen Sie ein Word-Dokument problemlos in mehrere Dokumente auf
Teilen Sie ein Word-Dokument mithilfe des Dokument teilen-Tools problemlos in mehrere Dokumente auf. Anstatt manuell zu kopieren und einzufügen, ermöglicht Ihnen dieses Tool, Ihr Dokument basierend auf Seiten,Überschrift 1,Seitenumbruchoder Abschnittsumbruchaufzuteilen – was die Effizienz erheblich steigert.
Ein Screenshot des Hilfsprogramms „Dokument teilen“, das ein Word-Dokument nach Seiten aufteilt
Kutools für Word: Verbessern Sie Ihre Word-Erfahrung mit hunderten praktischer Tools. Laden Sie es jetzt herunter und überzeugen Sie sich selbst!

Beste Office-Produktivitätswerkzeuge

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

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

Kutools for Word-Registerkarten im Menüband
 
 

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
  • Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!

Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

Beste Office-Produktivitätswerkzeuge

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

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools