Hoe u meerdere Word-documenten in batch naar PDF-bestanden kunt converteren

Het is eenvoudig om een enkel Word-document naar een PDF te converteren met behulp van de functie Opslaan als in Word. Maar wat als u alle Word-documenten in een map tegelijkertijd wilt converteren naar afzonderlijke PDF-bestanden? Deze gids laat u zien hoe u meerdere Word-documenten in batch naar PDF-bestanden kunt converteren in Word.

Meerdere Word-documenten in batch naar PDF-bestanden converteren met VBA
Meerdere Word-documenten in batch naar PDF-bestanden converteren met Kutools voor Word

Meerdere Word-documenten in batch naar PDF-bestanden converteren met VBA

Met de volgende VBA-code kunt u snel alle Word-documenten in een map naar PDF-bestanden converteren. Volg deze stappen:

1. Druk in Word op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in de editor op "Invoegen" > "Module", en kopieer en plak vervolgens de volgende VBA-code in het modulevenster.

   Sub ConvertWordsToPdfs()
   'Updated by Extendoffice 20181123
       Dim xIndex As String
       Dim xDlg As FileDialog
       Dim xFolder As Variant
       Dim xNewName As String
       Dim xFileName As String
       Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
       If xDlg.Show <> -1 Then Exit Sub
       xFolder = xDlg.SelectedItems(1) + "\"
       xFileName = Dir(xFolder & "*.*", vbNormal)
       While xFileName <> ""
           If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
               xIndex = InStr(xFileName, ".") + 1
               xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
               Documents.Open FileName:=xFolder & xFileName, _
                   ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                   PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                   WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                   wdOpenFormatAuto, XMLTransform:=""
               ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
                   ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                   wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                   Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                   CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                   BitmapMissingFonts:=True, UseISO19005_1:=False
               ActiveDocument.Close
           End If
           xFileName = Dir()
       Wend
   End Sub

   

3. Druk op F5 om de code uit te voeren.
4. Er verschijnt een bladerdialoogvenster. Selecteer de map met de Word-documenten die u wilt converteren naar PDF's en klik op "OK".

   

Alle Word-documenten in de geselecteerde map worden geconverteerd naar afzonderlijke PDF-bestanden.

Meerdere Word-documenten in batch naar PDF-bestanden converteren met Kutools voor Word

Als VBA-code moeilijk te hanteren is, kunt u de "Documenten converteren"-functie van Kutools voor Word proberen. Dit hulpprogramma vereenvoudigt het proces, waardoor het toegankelijker en efficiënter wordt in vergelijking met handmatige methoden in Word.

1. Klik op "Kutools Plus" > "Doc/Docx".

   

2. Voer in het venster "Documentformaat Converter" de volgende stappen uit:
   1. Selecteer "Converteer Docx naar Pdf" in het drop-down menu "Formaat Converteren".
   2. Klik om documenten toe te voegen:

      Kies "Bestanden" om individuele documenten toe te voegen. Kies "Map" om alle documenten uit een specifieke map toe te voegen.

   3. Standaard worden PDF-bestanden opgeslagen op dezelfde locatie als de bronbestanden. Om de locatie te wijzigen, klikt u op de knop "Bladeren" en kiest u een nieuwe bestemming.
   4. Optioneel kunt u het selectievakje "Verwijder bronbestanden na conversie" aanvinken om de originele bestanden te verwijderen nadat de PDF's zijn gemaakt.
   5. Optioneel kunt u het selectievakje "Behoud de gewijzigde datum van de originele bestanden" aanvinken om de originele bestandsmetadata te behouden.
   6. Zodra alle instellingen compleet zijn, klikt u op "OK".

   

Nu zijn alle .docx-formaatdocumenten succesvol geconverteerd naar PDF-bestanden.

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...

👉 Wilt u deze functies uitproberen? Download Kutools voor Word nu! 🚀

Gratis downloaden     Nu kopen     Meer informatie over Kutools voor Word

 

Beste productiviteitstools voor kantoor

Kutools voor Word – 100+ tools voor Word

• 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools / Super Vertalen / AI Redactie / AI Proeflezen
• 📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Batch converteren naar PDF
• ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
• 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
• ➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / Voeg selectievakjes toe / Maak QR-codes

Gratis downloaden Nu kopen Meer informatie over Kutools