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久久精品国产精品青草 | 超碰v| 久久亚洲日本不卡一区二区 | 婷婷综合社区 | 玖玖射 | 亚洲十欧美十日韩十国产 | 不卡视频在线 | 欧美精品blacked中文字幕 | 97视频在线观看播放 | 免费观看成人久久网免费观看 | 欧美日韩激情在线 | 久久国内精品自在自线400部o | 日日摸日日添夜夜爽97 | 国产日韩精品一区二区在线观看 | 一本久久a久久精品vr综合 | 精品无码久久久久久国产 | 亚洲欧美日韩久久一区 | 亚洲伊人久久综合一区二区 | 久久精品国产丝袜 | 97成人精品视频在线播放 | 一级特黄aa毛片免费观看 | 中文字幕中文字幕中中文 | 91探花视频在线观看 | 女人牲交视频一级毛片 | 五月天婷婷免费观看视频在线 | 欧美精品免费在线观看 | 久久久夜色精品国产噜噜 | 日日爽夜夜 | 五月天婷五月天综合网在线 | 日日干日日 | 奇米影视四色7777 | 久久一本综合 | 国产图片综合 | 中文在线日韩 | 免费观看一级毛片 | 涩综合| 91精品啪在线观看国产色 | 成人黄色一级毛片 | 在线观看黄色免费视频 | 九九九九在线精品免费视频 |