VBA 批量选中Word转换成PDF文件

...

Sub Word2PDF()
    Dim i As Long
    Dim doc As Document
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "Word Files", "*.doc;*.docx"
        .Show
        For i = 1 To .SelectedItems.Count
            Set doc = Documents.Open(.SelectedItems(i))
            doc.ExportAsFixedFormat OutputFileName:= _
            Environ("userproFile") & "\Desktop\" & GetFileInfo(.SelectedItems(i), 2) & ".pdf", ExportFormat:=wdExportFormatPDF
            doc.Close False
        Next
    End With
End Sub


Function GetFileInfo(Fullpath, InfoIndex)
    Dim fso As Object
    Dim objFile As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Select Case InfoIndex
        Case 1
            Set objFile = fso.GetFile(Fullpath)
            GetFileInfo = objFile.Name
        Case 2
            GetFileInfo = fso.getbasename(Fullpath)
        Case 3
            GetFileInfo = "." & fso.GetExtensionName(Fullpath)
    End Select
End Function