Skip to main content

Ontdek vandaag nog de nieuwe, gratis versie van Kutools voor Outlook!

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

Author: Siluvia Last Modified: 2025-05-29

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 productiviteitstools voor kantoor

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

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

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

Beste productiviteitstools voor kantoor

Kutools voor Word – 100+ tools voor Word

Gratis downloaden Nu kopen Meer informatie over Kutools