Як пакетно конвертувати кілька документів 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 для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте код 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 Plus > Doc / Docx. Дивіться знімок екрана:
2 В Конвертер формату документа вікно, потрібно зробити наступне:
3. Потім з’явиться діалогове вікно, щоб повідомити, скільки документів було успішно перетворено, клацніть на OK і закрийте Конвертер формату документа вікна.
Тепер усі документи формату .docx перетворюються у файли PDF.
Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти продуктивності офісу
Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...