如何批量将word转换成pdf？

        平时在工作过程中，可能有将word批量转换成pdf的需求，方法很多，还是觉得最简单的是利用word中的宏程序最简单，话不多说，下面简单描述下操作步骤：

1、新建一个word打开，同事按alt+F11，双击“ThisDocument”：

 2、输入宏程序：

Sub BatchConvertToPDF()
    Dim destFolderPath As String
    destFolderPath = GetFolderPath
    If destFolderPath <> Empty Then
        Dim path As Variant
        For Each path In GetFilePaths()
            Dim indexOfSlash, indexOfDot As Integer
            indexOfSlash = InStrRev(path, "\")
            indexOfDot = InStrRev(path, ".")
             
            Dim destFilePath As String
            destFilePath = destFolderPath + Mid(path, indexOfSlash, indexOfDot - indexOfSlash) + ".pdf"
             
            ConvertToPDF path, destFilePath
        Next path
    End If
End Sub
 
Function GetFilePaths()
    Dim folderPath As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "word文件", "*.doc; *.docx; *.docm"
        .Title = "请择要转换的word文件"
        If .Show = -1 Then
            Set GetFilePaths = .SelectedItems
        End If
    End With
End Function
 
Function GetFolderPath()
    Dim folderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "请选择要存放的目录"
        If .Show = -1 Then
            GetFolderPath = .SelectedItems(1)
        End If
    End With
End Function
 
Sub ConvertToPDF(srcPath As Variant, destPath As String)
    Documents.Open FileName:=srcPath, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        destPath, ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ActiveDocument.Close
End Sub

3、按下F5开始执行，第一次弹框选择需要保存的路径文件夹

4、第二次选择需要转换的文件夹，选择全部文件

 

5、按查看保存输出文件夹

 6、ok