Kako paketno pretvoriti več dokumentov Word v datoteke PDF?
Preprosto pretvorite Wordov dokument v datoteko PDF s funkcijo Shrani kot v Wordu. Če pa želite vse dokumente programa Word v mapi pretvoriti v datoteke PDF naenkrat, kako lahko to dosežete? Ta članek vam bo prikazal kodo VBA za paketno pretvorbo več Wordovih dokumentov v datoteke PDF v Wordu.
Paketno pretvorite več Wordovih dokumentov v datoteke PDF s pomočjo VBA
Paketno pretvorite več dokumentov Word v datoteke PDF s programom Kutools for Word
Paketno pretvorite več Wordovih dokumentov v datoteke PDF s pomočjo VBA
Naslednja koda VBA vam pomaga hitro pretvoriti vse Wordove dokumente v mapi v datoteke PDF naenkrat. Naredite naslednje.
1. V Wordu pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte spodnjo kodo VBA v okno modula.
Koda VBA: paketno pretvorite več dokumentov Word v datoteke PDF v programu 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. Pritisnite F5 tipko za zagon kode.
4. Pojavi se pogovorno okno Brskanje, izberite mapo, v kateri so Wordovi dokumenti, ki jih želite pretvoriti v datoteke PDF, in kliknite OK gumb.
Nato se vsi Wordovi dokumenti v izbrani mapi hkrati pretvorijo v ločene datoteke pdf. Oglejte si posnetek zaslona:
Paketno pretvorite več dokumentov Word v datoteke PDF s programom Kutools for Word
Če je s kodo VBA težko ravnati, lahko poskusite Pretvarjanje dokumentov uporabnost Kutools za Word za rešitev problema.
Kutools za Word : Z več kot 100 priročnimi dodatki za Word, brezplačno poskusite brez omejitev 60 dni.
1. klik Kutools Plus > Doc / Docx. Oglejte si posnetek zaslona:
2. V Ljubljani Pretvornik oblike dokumenta okno, morate storiti naslednje:
3. Nato se prikaže pogovorno okno, ki vam pove, koliko dokumentov je bilo uspešno pretvorjenih, kliknite OK in zaprite Pretvornik oblike dokumenta okno.
Zdaj se vsi dokumenti v obliki .docx pretvorijo v datoteke pdf.
Če želite brezplačno preskusiti to orodje, pojdite na brezplačno prenesete programsko opremo najprej in nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...