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ă ajută să convertiți rapid toate documentele Word dintr-un folder în fișiere pdf simultan. Vă rugăm să faceți următoarele.
1. În Word, apăsați pe Alt + F11 tastele 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 mai jos codul VBA în fereastra Module.
Cod VBA: convertiți în lot mai multe documente Word în fișiere pdf în 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. apasă pe F5 tasta pentru a rula codul.
4. Apare o fereastră de dialog Răsfoire, selectați folderul care conține documente Word pe care le veți converti în fișiere pdf și faceți clic pe OK butonul.
Apoi, toate documentele Word din folderul selectat sunt convertite în fișiere PDF separate simultan. 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.
Kutools pentru Cuvânt : Cu mai mult de 100 de suplimente Word la îndemână, liber să încercați fără limitări 60 zile.
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 gratuit software-ul 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!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 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 / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste 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 / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie pagini specifice / tabele / forme / paragrafele de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie...