Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe elk pagina op te slaan als afzonderlijke PDF-bestanden in een Word-document?

Author Siluvia Last modified

In Microsoft Word kunt u handmatig elke pagina opslaan als een afzonderlijke PDF door de ingebouwde functie "Opslaan als" te gebruiken en het paginanummer op te geven in het dialoogvenster Opties. Echter, als u werkt met een groot document dat honderden pagina's heeft, kan dit handmatig doen tijdrovend zijn. Dit artikel introduceert een methode om snel alle pagina's op te slaan als individuele PDF-bestanden.

Sla elke pagina bulksgewijs op als afzonderlijke PDF-bestanden met VBA-code

Sla elke pagina bulksgewijs op als afzonderlijke PDF-bestanden met VBA-code

U kunt onderstaande VBA-code gebruiken om automatisch elke pagina in een Word-document op te slaan als een individueel PDF-bestand. Zo gaat u te werk:

  1. Open het Word-document dat u wilt verwerken. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
  2. Klik in het Visual Basic-venster op "Invoegen" > "Module", en plak vervolgens de volgende VBA-code in het modulevenster: 
    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. Druk op F5 om de code uit te voeren.
  4. Selecteer in het bladerenvenster dat verschijnt een map om de PDF-bestanden op te slaan en klik op "OK".
    Browse window
  5. Voer in het eerste dialoogvenster van "Kutools for Word" het startpaginanummer in en klik op "OK".
    Kutools for Word dialog box with a text box for entering the start page number
  6. Voer in het tweede dialoogvenster van "Kutools for Word" het eindpaginanummer in en klik op "OK".
    Second Kutools for Word dialog box with a text box for entering the last page number

    Opmerking: Om bijvoorbeeld een paar opeenvolgende pagina's - pagina's 4, 5 en 6 - op te slaan, voert u gewoon "4" en "6" in de twee dialoogvensters in.

Nadat het script is uitgevoerd, gaat u naar de map die u hebt geselecteerd in stap 4. U zult zien dat elke gespecificeerde pagina is opgeslagen als een afzonderlijk PDF-bestand:

Pages are split and saved as individual PDF files
Een Word-document eenvoudig in meerdere documenten splitsen
Een Word-document eenvoudig in meerdere documenten splitsen met de Document Splitsen functie. In plaats van handmatig te kopiëren en plakken, stelt dit hulpmiddel je in staat om je document te splitsen op basis van pagina, Kop 1, pagina-einden, of sectie-einden - wat de efficiëntie aanzienlijk verbetert.
A screenshot of the Split Document utility splitting a Word document by page
Kutools voor Word: Verbeter je Word-ervaring met honderden handige tools. Download nu en zie het verschil!

Beste Office-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools