Как да конвертирате пакетно множество документи на Word в pdf файлове?
За вас е лесно да конвертирате документ на Word в PDF файл с функцията Запиши като в Word. Но ако искате да конвертирате всички документи на Word в папка в отделни PDF файлове наведнъж, как можете да го постигнете? Тази статия ще ви покаже VBA код за пакетно конвертиране на множество документи на Word в pdf файлове в Word.
Пакетно конвертиране на множество документи на Word в pdf файлове с VBA
Пакетно конвертирайте множество документи на Word в pdf файлове с Kutools за Word
Пакетно конвертиране на множество документи на Word в pdf файлове с VBA
Следният VBA код ви помага бързо да конвертирате всички документи на Word в папка в pdf файлове наведнъж. Моля, направете следното.
1. В Word натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули, след което копирайте по-долу VBA кода в прозореца на модула.
VBA код: Пакетно конвертиране на множество документи на Word в pdf файлове в 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. Натисни F5 ключ за изпълнение на кода.
4. Появява се диалогов прозорец за преглед, моля, изберете папката, която съдържа документи на Word, които ще конвертирате в pdf файлове, и щракнете върху OK бутон.
След това всички документи на Word в избраната папка се преобразуват в отделни pdf файлове наведнъж. Вижте екранна снимка:
Пакетно конвертирайте множество документи на Word в pdf файлове с Kutools за Word
Ако VBA кодът е труден за работа, можете да опитате Конвертиране на документи полезност на Kutools за Word за решаване на проблема.
Kutools за Word : С повече от 100 удобни добавки на Word, безплатно за изпробване без ограничения 60 ден.
1. кликване Kutools плюс > Doc/Docx. Вижте екранна снимка:
2. В Конвертор на формат на документ прозорец, трябва да направите следното:
3. След това се появява диалогов прозорец, за да ви каже колко документа са били успешно конвертирани, щракнете върху OK и затворете Конвертор на формат на документ прозорец.
Сега всички документи във формат .docx се конвертират в pdf файлове.
Ако искате да имате безплатна пробна версия на тази помощна програма, моля, отидете на безплатно изтегляне на софтуера първо и след това преминете към прилагане на операцията според горните стъпки.
Най-добрите инструменти за продуктивност в офиса
Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!
🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание / Пренаписване на текст / Обобщаване на документи / Запитване за информация въз основа на Документ, всичко това в Word
📘 Владеене на документи: Разделяне на страници / Обединяване на документи / Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...) / Пакетно конвертиране в PDF / Експортиране на страници като изображения / Отпечатайте няколко файла наведнъж...
✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове / Преоразмеряване на всички снимки / Транспониране на редовете и колоните на таблицата / Преобразуване на таблица в текст...
🧹 Почистване без усилие: Изметете Допълнителни пространства / Прекъсвания на раздели / Всички заглавки / Текстови полета / Хипервръзки / За повече инструменти за премахване се насочете към нашия Премахване на група...
➕ Творчески вложки: Вмъкване Хилядни разделители / Квадратчета / Радио бутони / QR Code / Баркод / Таблица с диагонални линии / Надпис на уравнение / Надпис на изображението / Надпис на таблица / Множество снимки / Открийте повече в Вмъкване на група...
🔍 Прецизни селекции: Точна точка конкретни страници / таблици / форми / заглавни параграфи / Подобрете навигацията с още Изберете функции...
⭐ Звездни подобрения: Навигирайте бързо до всяко място / автоматично вмъкване на повтарящ се текст / безпроблемно превключване между прозорците на документи / 11 Инструменти за конвертиране...