Как выполнить пакетное преобразование нескольких документов Word в файлы Файлы PDF

Преобразовать один документ Word в PDF с помощью функции «Сохранить как» — легко. Но что делать, если нужно одновременно преобразовать все документы Word из папки в отдельные файлы PDF? В этом руководстве показано, как выполнить пакетное преобразование нескольких документов Word в PDF прямо в Word.

Пакетное преобразование нескольких документов Word в Файлы PDF с помощью VBA
Пакетное преобразование нескольких документов Word в Файлы PDF с помощью Kutools для Word

Пакетное преобразование нескольких документов Word в Файлы PDF с помощью VBA

Следующий код VBA позволяет быстро преобразовать все документы Word в папке в файлы PDF одновременно. Выполните следующие действия:

1. В Word нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В редакторе выберите «Вставка» → «Модуль», а затем скопируйте и вставьте приведённый ниже код VBA в окно модуля.

   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 вызывает сложности, воспользуйтесь утилитой «Преобразование нескольких документов Word в PDF» из Kutools для Word — она делает процесс проще, доступнее и эффективнее по сравнению с ручными методами в Word.

1. На ленте Word нажмите Kutools > PDF и Word > Преобразовать несколько документов Word в PDF.

   

2. В диалоговом окне Docx to PDFвыполните следующие действия:
   1. Нажмите Добавить файлы, чтобы загрузить отдельные документы Word, или воспользуйтесь стрелкой раскрывающегося списка, чтобы добавить всю папку (включая подпапки, если нужно).
   2. По умолчанию файлы PDF сохраняются в той же папке, что и исходные файлы. Чтобы изменить расположение, снимите флажок с опции Сохранять созданные файлы PDF в той же папке, что и исходный файл Word и нажмите Обзор.
   3. После завершения всех настроек нажмите Начать преобразование.

      

Теперь все документы в формате .docx успешно преобразованы в файлы PDF.

Преобразование нескольких документов Word в PDF-файлы может занять немало времени, если обрабатывать их по одному через функцию «Сохранить как» в Word. Когда нужно обработать сразу всю папку документов, правильный подход существенно повышает эффективность и точность.

• Использование VBA — отличное решение, если вы уверенно работаете с кодом: оно позволяет выбрать папку и автоматически преобразовать все документы Word из неё в отдельные PDF-файлы.
• Kutools для Word — это более быстрый и удобный способ: добавляйте сразу несколько файлов или папок и выполняйте пакетное преобразование документов Word в PDF всего за несколько кликов, без необходимости использовать VBA.

Выбрав метод, который наилучшим образом соответствует вашему уровню навыков и рабочему процессу, вы сможете быстро выполнять пакетное преобразование документов Word в PDF — экономя время и избегая рутинной ручной работы.

Надеемся, что это руководство оказалось вам полезным! Хотите больше советов по работе с Word и решений для повышения продуктивности? Пожалуйста, нажмите здесь, чтобы ознакомиться со всей нашей коллекцией обучающих материалов по Word.