Как пакетно конвертировать несколько документов Word в файлы PDF?
Вы можете легко преобразовать документ Word в файл PDF с помощью функции «Сохранить как» в Word. Но если вы хотите преобразовать все документы Word в папке в отдельные файлы PDF одновременно, как вы можете этого добиться? В этой статье будет показан код VBA для пакетного преобразования нескольких документов Word в файлы PDF в Word.
Пакетное преобразование нескольких документов Word в файлы PDF с помощью VBA
Пакетное преобразование нескольких документов Word в файлы PDF с помощью Kutools for 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 for Word
Если код VBA трудно обрабатывать, вы можете попробовать Конвертировать документы полезности Kutools for Word решить проблему.
Kutools for Word : С более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 60 дня.
1. Нажмите Кутулс Плюс > Doc / Docx. Смотрите скриншот:
2. в Конвертер форматов документов окно нужно сделать так:
3. Затем появится диалоговое окно, в котором указано, сколько документов было успешно преобразовано, щелкните значок OK кнопку и закройте Конвертер форматов документов окно.
Теперь все документы формата .docx преобразованы в файлы pdf.
Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...