Jak dávkově převést více dokumentů aplikace Word do souborů PDF

Pomocí funkce Uložit jako ve Wordu je snadné převést jeden dokument aplikace Word do formátu PDF. Co když ale potřebujete převést všechny dokumenty Wordu ve složce do samostatných souborů PDF najednou? Tato příručka vám ukáže, jak dávkově převést více dokumentů aplikace Word na soubory PDF v aplikaci Word.

Dávkový převod více dokumentů aplikace Word do souborů PDF pomocí jazyka VBA
Dávkový převod více dokumentů aplikace Word do souborů PDF pomocí Kutools pro Word

Dávkový převod více dokumentů aplikace Word do souborů PDF pomocí jazyka VBA

Následující kód VBA umožňuje rychle převést všechny dokumenty aplikace Word ve složce na soubory PDF najednou. Postupujte takto:

1. Ve Wordu stiskněte Alt + F11 otevřete okno Microsoft Visual Basic pro aplikace.
2. V editoru klikněte na „Vložit“ > „Modul“, poté zkopírujte a vložte následující kód VBA do okna modulu.

   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. Stisknout F5 spustit kód.
4. Zobrazí se dialogové okno Procházet. Vyberte složku obsahující dokumenty aplikace Word, které chcete převést do PDF, a klikněte na „OK“.

   

Všechny dokumenty aplikace Word ve vybrané složce budou převedeny na samostatné soubory PDF.

Dávkový převod více dokumentů aplikace Word do souborů PDF pomocí Kutools pro Word

Pokud je obtížné zpracovat kód VBA, můžete vyzkoušet nástroj "Převést dokumenty" Kutools pro Word. Tento nástroj zjednodušuje proces, činí jej přístupnějším a efektivnějším ve srovnání s manuálními metodami ve Wordu.

1. Klikněte na "Kutools Plus" > "Doc/Docx".

   

2. V okně "Document Format Converter" postupujte takto:
   1. Z rozbalovací nabídky "Převést formát" vyberte "Převést docx do pdf".
   2. klikněte pro přidání dokumentů:

      Zvolte "Soubory" pro přidání jednotlivých dokumentů. Zvolte "Složka" pro přidání všech dokumentů z konkrétní složky.

   3. Ve výchozím nastavení se soubory PDF uloží do stejného umístění jako zdrojové soubory. Chcete-li změnit umístění, klikněte na tlačítko "Procházet". a vyberte si nový cíl.
   4. Volitelně zaškrtněte políčko "Odstranit zdrojové soubory po převodu", chcete-li po vytvoření PDF odstranit původní soubory.
   5. Chcete-li zachovat původní metadata souboru, zaškrtněte políčko „Zachovat datum změny původních souborů“.
   6. Po dokončení všech nastavení klikněte na „OK“.

   

Nyní byly všechny dokumenty ve formátu .docx úspěšně převedeny do souborů PDF.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Asistent AI / Asistent v reálném čase / Super Polish (Zachovat formát) / Super překlad (zachovat formát) / Redakce AI / Korektura AI...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Asistent AI / Asistent v reálném čase / Super polský / Super překlad / Redakce AI / Korektura AI
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools