Gå til hovedindhold

Udforsk det nye, gratis version af Kutools til Outlook i dag!

 

Sådan batch konverteres flere Word-dokumenter til pdf-filer?

Forfatter: Siluvia Sidst ændret: 2024-09-12

Det er nemt for dig at konvertere et Word-dokument til en PDF-fil med funktionen Gem som i Word. Men hvis du vil konvertere alle Word-dokumenter i en mappe til separate PDF-filer på én gang, hvordan kan du opnå det? Denne artikel viser dig en VBA-kode til batchkonvertering af flere Word-dokumenter til pdf-filer i Word.

Batch konvertere flere Word-dokumenter til pdf-filer med VBA
Batch konvertere flere Word-dokumenter til pdf-filer med Kutools for Word

Batch konvertere flere Word-dokumenter til pdf-filer med VBA

Følgende VBA-kode giver dig mulighed for hurtigt at konvertere alle Word-dokumenter i en mappe til PDF-filer på én gang. Følg disse trin:

  1. Tryk på i Word Alt + F11 at åbne Microsoft Visual Basic til applikationer vindue.
  2. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier og indsæt derefter følgende VBA-kode i Moduler vindue. 
    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

    Modulvindue med ovenstående kode indsat

  3. Presse F5 at køre koden.
  4. A Gennemse dialogen vil poppe op. Vælg den mappe, der indeholder de Word-dokumenter, du vil konvertere til PDF-filer, og klik OK.

    5. Gennemse dialogboksen

Alle Word-dokumenter i den valgte mappe vil blive konverteret til separate PDF-filer. Se skærmbillede:

Alle Word-dokumenter i den valgte mappe konverteres til separate PDF-filer

Batch konvertere flere Word-dokumenter til pdf-filer med Kutools for Word

Hvis VBA-kode er svær at håndtere, kan du prøve Konverter dokumenter nytte af Kutools for Word at løse problemet.

Kutools for Word, udstyret med AI 🤖, tilbyder over 100 praktiske funktioner til at forenkle dine opgaver.

1. klik Kutools Plus > Doc / Docx. Se skærmbillede:

Doc/Docx-knappen på Kutools Plus-fanen på båndet

2. i Dokumentformatkonverter vindue, skal du gøre som følger:

2.1) Vælg mappen, der indeholder dokumenter, du vil konvertere til pdf i Kildefilmappe afsnit;
2.2 Vælg Konverter docx til pdf fra Format Konverter rulleliste
2.3) Som standard er Destinationssti samme som kilde er markeret. Hvis du vil placere alle konverterede pdf-filer i samme mappe, skal du bare holde denne mulighed valgt;
Hvis du vil adskille pdf-filer og kildedokumenter, skal du fjerne markeringen i Destinationssti samme som kilde og vælg en ny mappe for at gemme pdf-filerne i Gem til boks;
2.4) Klik på Starten knap. Se skærmbillede:

Vinduet Dokumentformatkonvertering

3. Derefter dukker en dialogboks op for at fortælle dig, hvor mange dokumenter der er konverteret, skal du klikke på OK knappen og luk Dokumentformatkonverter vindue.

Nu konverteres alle .docx-formatdokumenter til pdf-filer.

Hvis du vil have en gratis prøveversion af dette værktøj, skal du gå til download Kutools til Word først, og gå derefter til for at anvende handlingen i henhold til ovenstående trin.

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...

📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...

✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...

➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...

⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...

Kutools og Kutools Plus faner på Word-båndet
???? Vil du prøve disse funktioner? Download Kutools til Word nu! 🚀
 

Bedste kontorproduktivitetsværktøjer

Kutools for Word - 100+ værktøjer til Word

Gratis download Køb Nu Lær mere om Kutools