Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как конвертировать несколько документов Word в pdf-файлы?

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

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

Пакетное преобразование нескольких документов Word в pdf-файлы с помощью Kutools for Word


Легко конвертируйте несколько документов Word в pdf-файлы в Word:

Конвертер формата документа полезности Kutools for Excel может помочь вам быстро преобразовать все документы формата .docx в указанную папку в pdf-файлы. Смотрите скриншот:

Kutools for Word: с более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 30-дни. Скачать и бесплатно пробную версию!


Пакетное преобразование нескольких документов 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 : С более чем удобными надстройками Word для 100, бесплатно попробовать без ограничений в 30-дни.

1. Нажмите Kutools Plus > Doc / Docx, Смотрите скриншот:

2. в Конвертер формата документа окна, вы должны сделать следующее:

2.1) Выберите папку содержит документы, которые вы конвертируете в pdf в Папка исходного файла раздел;

2.2 Выберите Преобразование docx в pdf из Преобразование формата выпадающий список;

2.3). По умолчанию Путь назначения такой же, как источник флажок установлен. Если вы хотите поместить все преобразованные файлы PDF в одну и ту же папку, просто выберите эту опцию;

Если вы хотите отделить файлы PDF и исходные документы, вам необходимо снять флажок Путь назначения такой же, как источник и выберите новую папку для сохранения файлов PDF в Сохранить коробка;

2.4) Нажмите запуск кнопка. Смотрите скриншот:

3. Затем появится диалоговое окно, чтобы узнать, сколько документов было успешно преобразовано, нажмите OK и закрыть Конвертер формата документа окна.

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

Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите, чтобы применить операцию согласно вышеуказанным шагам.



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sammy · 18 days ago
    Is there any way to have the file name taken from the text of the document?
  • To post as a guest, your comment is unpublished.
    Marzio · 1 months ago
    VBA if i try to convert file that contains macros the macro swith to open file and ends without close file.
  • To post as a guest, your comment is unpublished.
    michaelwaung · 2 months ago
    So nice blog, Thanks for sharing this blog. It Has so useful information for users. I liked this information so much.
    Hope you keep sharing such kind of information convert word doc to html