Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik elke pagina opslaan als afzonderlijke pdf-bestanden in een Word-document?

Tijdens het gebruik van een Microsoft Word-document kunt u elke pagina afzonderlijk opslaan als afzonderlijke pdf-bestanden met de ingebouwde Save As-functie. Als er honderden pagina's moeten worden gesplitst en opgeslagen als afzonderlijke pdf-bestanden, hoe kunt u dat dan doen? Dit artikel biedt een methode om dit probleem snel op te lossen.

Sla elke pagina op als afzonderlijke pdf-bestanden in bulk met VBA-code


Splits en bewaar elke pagina van een document als afzonderlijke nieuwe documenten:

De Document splitsen nut van Kutools for Excel kan u helpen om elke pagina van het huidige document eenvoudig te splitsen en op te slaan als afzonderlijk nieuw document in bulk.

  • Selecteer een locatie om de gesplitste documenten op te slaan;
  • kiezen Pagina van de spleet door drop-down lijst;
  • Klik op OK beginnen. Zie screenshot:

Kutools for Word: met meer dan 100 handige invoegtoepassingen voor Word, gratis om zonder beperkingen in 30-dagen te proberen. Download en gratis proef nu!


Sla elke pagina op als afzonderlijke pdf-bestanden in bulk met VBA-code

De onderstaande VBA-code helpt u om snel elke pagina in een document op te slaan als afzonderlijke pdf-bestanden op hetzelfde moment. Doe het als volgt.

1. Open het document dat u elke pagina of specifieke pagina's als pdf-bestanden wilt opslaan en druk vervolgens op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module, kopieer onderstaande VBA-code naar het modulevenster.

VBA-code: sla elke pagina op als afzonderlijke pdf-bestanden tegelijkertijd in een Word-document

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

3. druk de F5 sleutel om de code uit te voeren.

4. In de Blader venster, selecteer een map om de pdf-bestanden op te slaan en klik op de OK knop. Zie screenshot:

5. In de eerste Kutools for Word dialoogvenster, voer het startpaginanummer van uw document in het tekstvak in en klik op OK.

6. In de seconde Kutools for Word dialoogvenster, voer het laatste paginanummer van uw document in en klik vervolgens op OK. Zie screenshot:

Notes: Als u meerdere doorlopende pagina's in een document als afzonderlijke pdf-bestanden, zoals pagina 4, 5 en 6, wilt opslaan, voert u 4 en 6 afzonderlijk in de bovenstaande twee dialoogvensters in.

Nadat u de code hebt uitgevoerd, gaat u naar de opgegeven map die u hebt geselecteerd in stap 4. U kunt zien dat alle pagina's zijn gesplitst en opgeslagen als afzonderlijke pdf-bestanden zoals hieronder wordt getoond.



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bharadwaj · 2 months ago
    down loaded the kutools for trial - installed and when trying to something the word is closing and the tool never worked.

    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Good day,
      Thanks to let me know the bug, and sorry for the inconvenience. Would you provide your Word version? We need to figure out the problem with more information.