Ինչպե՞ս խմբաքանակի միջոցով մի քանի Word փաստաթղթեր փոխարկել pdf ֆայլերի:
Word- ի փաստաթուղթը PDF ֆայլի վերափոխելը ձեզ համար հեշտ է Word- ում Save as գործառույթով: Բայց եթե ուզում եք բոլոր Word փաստաթղթերը թղթապանակում փոխարկել PDF ֆայլերը միանգամից առանձնացնելու համար, ինչպե՞ս կարող եք դրան հասնել: Այս հոդվածը ձեզ ցույց կտա VBA կոդ ՝ Word- ում բազմաթիվ Word փաստաթղթեր խմբաքանակով PDF ֆայլերի վերափոխելու համար:
Խմբաքանակի մի քանի Word փաստաթղթեր VBA- ով վերափոխեք pdf ֆայլերի
Խմբաքանակը մի քանի Word փաստաթղթեր փոխակերպում է pdf ֆայլերի Kutools- ի համար Word- ով
Խմբաքանակի մի քանի Word փաստաթղթեր VBA- ով վերափոխեք pdf ֆայլերի
Հաջորդ VBA կոդը օգնում է ձեզ արագորեն վերափոխել բոլոր Word փաստաթղթերը թղթապանակում միանգամից pdf ֆայլերի: Խնդրում եմ, արեք հետևյալ կերպ.
1. Word- ում սեղմիր ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:
VBA կոդ. Word- ում խմբաքանակը փոխակերպում է բազմաթիվ Word փաստաթղթեր pdf ֆայլերի
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. Սեղմեք F5 ծածկագիրը գործելու համար:
4. sննման երկխոսություն է բացվում, խնդրում ենք ընտրեք այն թղթապանակը, որը պարունակում է Word փաստաթղթեր, որոնք կփոխարկեք pdf ֆայլերի, և կտտացրեք OK կոճակը:
Այնուհետև ընտրված թղթապանակի բոլոր Word փաստաթղթերը միանգամից վերափոխվում են առանձին pdf ֆայլերի: Տեսեք,
Խմբաքանակը մի քանի Word փաստաթղթեր փոխակերպում է pdf ֆայլերի Kutools- ի համար Word- ով
Եթե VBA կոդը դժվար է կարգավորել, կարող եք փորձել այն Փոխակերպել փաստաթղթերը օգտակարությունը Kutools բառի համար խնդիրը լուծելու համար:
Kutools բառի համար ՝ ավելի քան 100 հարմար բառերի հավելումներով, անվճար փորձելու առանց սահմանափակման 60 օր.
1: սեղմեք Kutools Plus > Doc / Docx, Տեսեք,
2. Մեջ Փաստաթղթի ձևաչափի փոխարկիչ պատուհանը, դուք պետք է անեք հետևյալը.
3. Դրանից հետո բացվում է երկխոսության տուփ ՝ ձեզ ասելու համար, թե քանի փաստաթուղթ է հաջողությամբ փոխարկվել, կտտացրեք այն OK կոճակը և փակել այն Փաստաթղթի ձևաչափի փոխարկիչ պատուհան.
Այժմ .docx ձևաչափի բոլոր փաստաթղթերը վերափոխվում են pdf ֆայլերի:
Եթե ցանկանում եք անվճար օգտվել այս օգտակար ծառայությունից, գնացեք այստեղ անվճար ներբեռնել ծրագրաշարը նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրեք խումբը...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր / սեղաններ / ձեւավորում / վերնագրի պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր / կրկնվող տեքստի ավտոմատ տեղադրում / անխափան անցում փաստաթղթի պատուհանների միջև / 11 Փոխակերպման գործիքներ...