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)論
主站蜘蛛池模板: 91精品国产三级在线观看 | 欧美一级精品高清在线观看 | 久久午夜青青草原影院 | 久久精品久噜噜噜久久 | 久久亚洲综合中文字幕 | 国产精品色片 | 国内精品久久久久鸭 | 色综网| 97在线视频免费播放 | 亚洲国产成人资源在线桃色 | 999国产高清在线精品 | 欧美日韩在线视频播放 | 国产精品成人一区二区 | 抱着cao才爽免费观看 | 99久久精品国产一区二区 | 日韩一级特黄毛片在线看 | 成人午夜视频在线观看 | 午夜精品aaa国产福利 | 成人欧美一区二区三区白人 | 欧美一级片网 | 欧美成一级 | 天天干天天爱天天操 | 97免费在线观看视频 | 二性视频 | 干天天 | 四虎网址最新 | 久久大香伊蕉在人线观看热2 | 色久综合在线 | 九九热国产精品视频 | 亚洲一区二区天海翼 | 精品国产999 | 亚洲网站在线看 | 99视频国产在线 | 亚洲欧美高清 | 久久99热久久精品91 | 亚洲人人爱 | 天天摸天天操天天射 | 老太做爰xxxx视频 | 国产欧美日韩高清专区手机版 | 日韩亚洲欧美综合一区二区三区 | 亚洲+自拍+色综合图区一 |