Hoe kan ik elke pagina opslaan als afzonderlijke pdf-bestanden in een Word-document?
Terwijl u een Microsoft Word-document gebruikt, kunt u elke pagina een voor een opslaan als afzonderlijke pdf-bestanden met de ingebouwde functie Opslaan als. Als er echter honderden pagina's moeten worden gesplitst en opgeslagen als individuele 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
Sla elke pagina op als afzonderlijke pdf-bestanden in bulk met VBA-code
De onderstaande VBA-code helpt u om elke pagina in een document snel op te slaan als afzonderlijke pdf-bestanden op hetzelfde moment. Ga als volgt te werk.
1. Open het document waarin 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 Invoegen > module, kopieer onderstaande VBA-code naar het modulevenster.
VBA-code: sla elke pagina tegelijkertijd op als afzonderlijke pdf-bestanden 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 Selecteer een map om de pdf-bestanden op te slaan en klik op het 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 tweede Kutools for Word dialoogvenster, voer het laatste paginanummer van uw document in en klik op OK. Zie screenshot:
Note: Als u alleen meerdere doorlopende pagina's in een document wilt opslaan als afzonderlijke pdf-bestanden, zoals pagina 4, 5 en 6, voer dan 4 en 6 afzonderlijk in de bovenstaande twee dialoogvensters in.
Nadat u de code hebt uitgevoerd, gaat u naar de opgegeven map die u in stap 4 hebt geselecteerd, u kunt zien dat alle pagina's zijn gesplitst en opgeslagen als afzonderlijke pdf-bestanden, zoals hieronder wordt getoond.
Splits en sla elke pagina van een document op 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, zoals het onderstaande screenshot laat zien. Download en probeer het nu! (60-dag vrij parcours)
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...