Hur batchkonverterar flera Word-dokument till pdf-filer?
Det är enkelt för dig att konvertera ett Word-dokument till en PDF-fil med funktionen Spara som i Word. Men om du vill konvertera alla Word-dokument i en mapp till separata PDF-filer samtidigt, hur kan du uppnå det? Den här artikeln visar en VBA-kod för att omvandla flera Word-dokument till pdf-filer i Word.
Batchkonvertera flera Word-dokument till pdf-filer med VBA
Batchkonvertera flera Word-dokument till pdf-filer med Kutools for Word
Batchkonvertera flera Word-dokument till pdf-filer med VBA
Följande VBA-kod hjälper dig att snabbt konvertera alla Word-dokument i en mapp till pdf-filer samtidigt. Gör så här.
1. I Word, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera sedan VBA-koden nedan till modulfönstret.
VBA-kod: Batchkonvertera flera Word-dokument till pdf-filer i 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. tryck på F5 för att köra koden.
4. En bläddringsdialog dyker upp, välj den mapp som innehåller Word-dokument som du konverterar till pdf-filer och klicka på OK knapp.
Sedan konverteras alla Word-dokument i vald mapp till separata pdf-filer på en gång. Se skärmdump:
Batchkonvertera flera Word-dokument till pdf-filer med Kutools for Word
Om VBA-koden är svår att hantera kan du prova Konvertera dokument nytta av Kutools för Word för att lösa problemet.
Kutools för Word : Med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsningar 60 dagar.
1. klick Kutools Plus > Doc / Docx. Se skärmdump:
2. I Dokumentformatkonverterare måste du göra på följande sätt:
3. Sedan dyker en dialogruta upp för att berätta hur många dokument som har konverterats framgångsrikt, klicka på OK och stäng knappen Dokumentformatkonverterare fönster.
Nu konverteras alla dokument .docx-format till pdf-filer.
Om du vill ha en gratis testversion av det här verktyget, gå till ladda ner programvaran gratis först och sedan tillämpa operationen enligt ovanstående steg.
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...