EmptyThenDimpathAsVariantForEachpathInGetFilePaths()DimindexOfSlash,indexOfDotAsIntegerindexOfSlash=InStrRev(path,"\")indexOfDot=InStrRev" />

亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

使用VBA將批量的WORD文檔轉(zhuǎn)換為PDF

系統(tǒng) 3346 0
      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; *.dotx; *.docm"

        .Title = "請(qǐng)擇要轉(zhuǎn)換的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 = "請(qǐng)選擇要存放的目錄"

        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


    

使用VBA將批量的WORD文檔轉(zhuǎn)換為PDF


更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號(hào)聯(lián)系: 360901061

您的支持是博主寫作最大的動(dòng)力,如果您喜歡我的文章,感覺我的文章對(duì)您有幫助,請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點(diǎn)擊下面給點(diǎn)支持吧,站長非常感激您!手機(jī)微信長按不能支付解決辦法:請(qǐng)將微信支付二維碼保存到相冊(cè),切換到微信,然后點(diǎn)擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對(duì)您有幫助就好】

您的支持是博主寫作最大的動(dòng)力,如果您喜歡我的文章,感覺我的文章對(duì)您有幫助,請(qǐng)用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會(huì)非常 感謝您的哦!!!

發(fā)表我的評(píng)論
最新評(píng)論 總共0條評(píng)論
主站蜘蛛池模板: 国产真实乱xxxav | 欧美一级毛片高清免费观看 | 欧美成人免费高清二区三区 | 操穴网站| 欧美大尺度免费一级特黄 | 天天干天天干天天干天天 | 国产精品一区二区久久不卡 | 日日夜夜天天 | 97在线资源站 | 瑟瑟视频在线观看 | 毛片激情永久免费 | 日日操夜夜骑 | 日本一级特黄毛片免费视频9 | 九九热国产精品视频 | 国产日韩精品一区在线观看播放 | 亚洲韩精品欧美一区二区三区 | 色综合天天综久久久噜噜噜久久〔 | 99久久99久久精品免费看子伦 | 国产综合婷婷 | 精品一区二区久久久久久久网站 | 日韩一级黄色录像 | 一区二区手机视频 | 亚洲免费观看视频 | 国产日韩精品视频一区二区三区 | 性做久久久久久蜜桃花 | 欧美日韩亚洲国产无线码 | 中文字幕三级理论影院 | 久热免费在线视频 | 中国一级特黄高清免费的大片 | 色婷婷激婷婷深爱五月小蛇 | 亚洲 欧美 日韩在线综合福利 | 成人国产免费 | 国产精品亚洲精品爽爽 | 日韩欧美第一页 | 一级特黄aa大片欧美小说 | 国产自产在线 | 国产一级αv片免费观看 | 国内精品久久久久激情影院 | 国产精品久久久久影院免费 | 久久亚洲精品中文字幕二区 | 亚洲综合在线观看一区www |