KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe slaat u elke pagina van een Word-document op als afzonderlijke PDF-bestanden?

AuteurSiluvia Wijzigingsdatum

In Microsoft Word kunt u handmatig elke pagina opslaan als een afzonderlijke PDF met behulp van de ingebouwde functie „Opslaan als" en door het paginanummer op te geven in het dialoogvenster Opties. Als u echter werkt met een groot document met honderden pagina’s, kost dit handmatig veel tijd. In dit artikel wordt een methode beschreven om alle pagina’s snel op te slaan als afzonderlijke PDF-bestanden.

Sla elke pagina in bulk op als afzonderlijk PDF-bestanden met VBA-code

Sla elke pagina in bulk op als afzonderlijk PDF-bestanden met VBA-code

U kunt de onderstaande VBA-code gebruiken om elke pagina van een Word-document automatisch op te slaan als een afzonderlijk PDF-bestand. Volg deze stappen:

  1. Open het Word-document dat u wilt bewerken. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
  2. Klik in het venster Visual Basic 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-venster met Invoegen > Module geselecteerd en VBA-code gekopieerd in het modulevenster
  3. Druk op F5 om de code uit te voeren.
  4. Selecteer in het weergavevenster dat verschijnt een map om de PDF-bestanden op te slaan en klik op ‘OK’.
    Bladeren-venster
  5. Voer in het eerste dialoogvenster van Kutools voor Word het beginpaginanummer in en klik op OK.
    Kutools for Word dialoogvenster met een tekstvak voor het invoeren van het beginpaginanummer
  6. Voer in het tweede dialoogvenster van ‘Kutools voor Word’ het eindpaginanummer in en klik op ‘OK’.
    Tweede Kutools for Word dialoogvenster met een tekstvak voor het invoeren van het laatste paginanummer

    Opmerking: Voer bijvoorbeeld "4" en "6" in de twee dialoogvensters in om een reeks opeenvolgende pagina’s op te slaan: pagina’s 4, 5 en 6.

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

Pagina's zijn gesplitst en opgeslagen als afzonderlijke PDF-bestanden
Splits eenvoudig een Word-document op in meerdere documenten
Splits eenvoudig een Word-document op in meerdere documenten met het Document Splitsen-hulpprogramma. In plaats van handmatig kopiëren en plakken, kunt u met deze tool uw document splitsen op basis van pagina,Kop 1,Pagina-eindeof Sectie-einde– wat de efficiëntie aanzienlijk verbetert.
Een schermafbeelding van het hulpprogramma Document splitsen dat een Word-document per pagina splitst
Kutools voor Word: Verrijk uw Word-ervaring met honderden handige tools. Download nu en ervaar het verschil!

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Kutools for Word tabbladen op het lint
 
 

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

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

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

Gratis downloadenNu kopenMeer informatie over Kutools