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

chunyu.wu

已于 2024-07-16 16:30:59 修改

阅读量621

点赞数 1

分类专栏： VBA 文章标签： VBA

于 2024-07-16 14:24:59 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/140465438

版权

VBA 专栏收录该内容

67 篇文章

订阅专栏

...

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