Hoe meerdere Word-documenten batchgewijs naar pdf-bestanden converteren?
U kunt een Word-document gemakkelijk naar een pdf-bestand converteren met de functie Opslaan als in Word. Maar als u alle Word-documenten in een map wilt converteren naar afzonderlijke PDF-bestanden, hoe kunt u dit dan bereiken? Dit artikel laat u een VBA-code zien om meerdere Word-documenten batchgewijs naar pdf-bestanden in Word te converteren.
Batch converteer meerdere Word-documenten naar pdf-bestanden met VBA
Batch converteer meerdere Word-documenten naar pdf-bestanden met Kutools voor Word
Batch converteer meerdere Word-documenten naar pdf-bestanden met VBA
Met de volgende VBA-code kunt u snel alle Word-documenten in een map in één keer naar pdf-bestanden converteren. Ga als volgt te werk.
1. Druk in Word op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de VBA-code naar het modulevenster.
VBA-code: Batch converteer meerdere Word-documenten naar pdf-bestanden in Word
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 de F5 sleutel om de code uit te voeren.
4. Er verschijnt een dialoogvenster Bladeren, selecteer de map die Word-documenten bevat die u naar pdf-bestanden wilt converteren en klik op OK knop.
Vervolgens worden alle Word-documenten in de geselecteerde map in één keer geconverteerd naar afzonderlijke pdf-bestanden. Zie screenshot:
Batch converteer meerdere Word-documenten naar pdf-bestanden met Kutools voor Word
Als VBA-code moeilijk te verwerken is, kunt u de Converteer documenten nut van Kutools for Word om het probleem op te lossen.
Kutools for Word : Met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen.
1. klikken Koetools Plus > Doc / Docx. Zie screenshot:
2. In de Documentformaatconvertor venster, moet u het volgende doen:
3. Vervolgens verschijnt er een dialoogvenster waarin u kunt zien hoeveel documenten met succes zijn geconverteerd. Klik op OK knop en sluit het Documentformaatconvertor venster.
Nu worden alle documenten in .docx-formaat geconverteerd naar pdf-bestanden.
Als u een gratis proefversie van dit hulpprogramma wilt, gaat u naar gratis download de software eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.
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...