Cum se convertesc în lot mai multe documente Word în fișiere pdf?

Vă este ușor să convertiți un document Word într-un fișier PDF cu funcția Salvare ca în Word. Dar dacă doriți să convertiți toate documentele Word dintr-un folder în fișiere PDF separate simultan, cum puteți să le realizați? Acest articol vă va arăta un cod VBA pentru a converti în lot mai multe documente Word în fișiere pdf în Word.

Convertiți în lot mai multe documente Word în fișiere pdf cu VBA
Conversia în lot a mai multor documente Word în fișiere pdf cu Kutools pentru Word

Convertiți în lot mai multe documente Word în fișiere pdf cu VBA

Următorul cod VBA vă permite să convertiți rapid toate documentele Word dintr-un folder în fișiere PDF simultan. Urmați acești pași:

1. În Word, apăsați Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați și inserați următorul cod VBA în fișierul Module fereastră.

   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. Anunturi F5 pentru a rula codul.
4. A Naviga va apărea dialogul. Selectați folderul care conține documentele Word pe care doriți să le convertiți în fișiere PDF și faceți clic OK.

Toate documentele Word din folderul selectat vor fi convertite în fișiere PDF separate. Vedeți captura de ecran:

Conversia în lot a mai multor documente Word în fișiere pdf cu Kutools pentru Word

Dacă codul VBA este greu de manevrat, puteți încerca Conversia documentelor utilitatea Kutools pentru Cuvânt pentru a rezolva problema.

1. clic Kutools Plus > Doc / Docx. Vedeți captura de ecran:

2. În Convertor format de documente fereastră, trebuie să procedați după cum urmează:

3. Apoi apare o casetă de dialog pentru a vă spune câte documente au fost convertite cu succes, faceți clic pe OK și închideți butonul Convertor format de documente fereastră.

Acum toate documentele în format .docx sunt convertite în fișiere pdf.

Dacă doriți să aveți o încercare gratuită a acestui utilitar, vă rugăm să accesați descărcați Kutools pentru Word mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Caracteristici Kutools AI: Generați conținut / Rescrie textul / Documente Întrebări și răspunsuri / Obțineți răspunsuri rapide / Traduceți documente / Document polonez (format păstrat)...

📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF...

✏ Editarea continutului: Găsiți și înlocuiți în loturi în mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Elimină grup...

➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Imagini multiple / Descoperiți mai multe în Insera grup...

???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

⭐ Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Convertire Instrumente...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀

Descărcare gratuită     Cumpară acum     Aflați mai multe despre Kutools pentru Word

 

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Peste 100 de instrumente pentru Word

• 🤖 Caracteristici Kutools AI: Genera, Rescrie, Rezuma, Traduceți Documente / Obțineți răspunsuri rapide / Document polonez (format păstrat)
• 📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Conversie lot în PDF
• ✏ Editarea continutului: Găsiți și înlocuiți în lot / Redimensionați toate imaginile
• 🧹 Curățare fără efort: Eliminați spațiile suplimentare / Eliminați secțiunile de secțiune
• ➕ Inserții creative: Introduceți o mie de separatoare / Introduceți casete de selectare / Creați coduri QR

Descărcare gratuită Cumpară acum Aflați mai multe despre Kutools