Conas baisc de dhoiciméid Word iolracha a thiontú go comhaid pdf?
Is furasta duit doiciméad Word a thiontú go comhad PDF leis an bhfeidhm Save as function i Word. Ach más mian leat gach doiciméad Word a thiontú i bhfillteán chun comhaid PDF a scaradh ag an am céanna, conas is féidir leat é a bhaint amach? Taispeánfaidh an t-alt seo cód VBA duit chun iliomad doiciméad Word a chomhshó go comhaid pdf i Word.
Baisc doiciméid iolracha Word a thiontú go comhaid pdf le VBA
Baisc doiciméid iolracha Word a thiontú go comhaid pdf le Kutools for Word
Baisc doiciméid iolracha Word a thiontú go comhaid pdf le VBA
Cuidíonn an cód VBA seo a leanas leat gach doiciméad Word i bhfillteán a thiontú go comhaid pdf go tapa. Déan mar a leanas le do thoil.
1. I Word, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.
Cód VBA: Tiontaigh baisc ilcháipéisí Word go comhaid pdf i 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. Brúigh an F5 eochair chun an cód a rith.
4. Tagann dialóg Brabhsáil aníos, roghnaigh an fillteán ina bhfuil cáipéisí Word a athróidh tú go comhaid pdf, agus cliceáil ar an OK cnaipe.
Ansin athraítear gach doiciméad Word san fhillteán roghnaithe go comhaid pdf ar leithligh ag an am céanna. Féach an pictiúr:
Baisc doiciméid iolracha Word a thiontú go comhaid pdf le Kutools for Word
Má tá sé deacair cód VBA a láimhseáil, is féidir leat triail a bhaint as an Tiontaigh cáipéisí fóntais de Kutools le haghaidh Word chun an fhadhb a réiteach.
Kutools le haghaidh Word : Le níos mó ná 100 breiseán áisiúil Word, saor chun iarracht a dhéanamh gan aon teorainn i 60 lá.
1. cliceáil Kutools Plus > Doc / Docx. Féach an pictiúr:
2. Sa Tiontaire Formáid Doiciméid fuinneog, ní mór duit a dhéanamh mar a leanas:
3. Ansin tagann bosca dialóige suas chun a insint duit cé mhéad doiciméad a tiontaíodh go rathúil, cliceáil an OK cnaipe agus dún an Tiontaire Formáid Doiciméid fhuinneog.
Anois athraítear gach doiciméad formáide .docx go comhaid pdf.
Más mian leat triail saor in aisce a bhaint as an bhfóntas seo, téigh chuig íoslódáil saor in aisce na bogearraí ar dtús, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF / Easpórtáil Leathanaigh mar Íomhánna / Priontáil Comhaid Il ag an am céanna...
✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Gach Ceanntásca / Boscaí Téacs / Hipearnasc / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Tábla Líne Trasnánach / Fotheideal Cothromóid / Fotheideal Íomhá / Fotheideal Tábla / Pictiúir Il / Faigh amach níos mó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...