Hogyan lehet kötegelt módon konvertálni több Word dokumentumot pdf fájlokká?
A Word Mentés másként funkciójával könnyen konvertálhat Word-dokumentumot PDF-fájlba. De ha egy mappában található összes Word-dokumentumot egyszerre akar külön PDF fájlokká konvertálni, hogyan érheti el? Ez a cikk egy VBA-kódot mutat be, amellyel több Word-dokumentumot konvertálhat PDF-fájlokká a Word-ben.
Kötegelt módon konvertálhat több Word dokumentumot pdf fájlokká a VBA segítségével
Több Word-dokumentumot kötegelt konvertál pdf-fájlokká a Kutools for Word segítségével
Kötegelt módon konvertálhat több Word dokumentumot pdf fájlokká a VBA segítségével
A következő VBA-kód segít a mappában található összes Word-dokumentum gyors konvertálásában egyszerre pdf-fájlokká. Kérjük, tegye a következőket.
1. A Word alkalmazásban nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a VBA kód alatt a Modul ablakba.
VBA-kód: Több Word-dokumentum kötegelt konvertálása pdf-fájlokká Word-ben
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. megnyomni a F5 gombot a kód futtatásához.
4. Megjelenik egy Tallózás párbeszédpanel. Kérjük, válassza ki azt a mappát, amely Word dokumentumokat tartalmaz, amelyeket PDF fájlokká konvertál, majd kattintson a OK gombot.
Ezután a kiválasztott mappában található összes Word-dokumentumot egyszerre külön PDF fájlokká konvertálja. Lásd a képernyőképet:
Több Word-dokumentumot kötegelt konvertál pdf-fájlokká a Kutools for Word segítségével
Ha a VBA kódot nehéz kezelni, akkor próbálja ki a Dokumentumok konvertálása hasznossága Kutools for Word hogy megoldja a problémát.
Kutools for Word : Több mint 100 praktikus Word-bővítménnyel, ingyenesen kipróbálható korlátozás nélkül 60 napok.
1. kettyenés Kutools Plus > Doc / Docx. Lásd a képernyőképet:
2. Ban,-ben Dokumentum formátum átalakító ablakban a következőket kell tennie:
3. Ezután megjelenik egy párbeszédpanel, amely megmondja, hogy hány dokumentum konvertálása sikerült, kattintson a gombra OK gombot, és zárja be a Dokumentum formátum átalakító ablak.
Most az összes .docx formátumú dokumentumot konvertálja pdf fájlokká.
Ha szeretné ingyenesen kipróbálni ezt a segédprogramot, kérjük, látogasson el ide: ingyenesen letölthető a szoftver először, majd lépjen a művelet végrehajtására a fenti lépések szerint.
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...