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)論
主站蜘蛛池模板: 欧美日韩性大片 | 中国明星一级毛片免费 | 日本高清精品 | 国产精品1 | 黄色片网站在线免费观看 | 国产视频一区二区在线播放 | 亚洲视频在线免费看 | 亚洲婷婷综合中文字幕第一页 | 欧美成人一区二区三区不卡视频 | 婷婷在线视频 | 深夜成人影院 | julia中文字幕在线 | 久久91精品国产91久久跳舞 | 蘑菇视频绿巨人小黄鸭 | 水浒传删减剧情在线观看 | 九九视频只有精品六 | 国产美女在线免费观看 | 五月婷婷一区 | aaa国产一级毛片 | 亚洲毛片一级带毛片基地 | 亚洲成人视屏 | 正在播放一区二区 | 中文字幕不卡在线高清 | 羞羞视频网 | 99青青| 久久久久久国产精品视频 | 九九九国产视频 | 免费视频亚洲 | 色综合天天综合网站中国 | 成人激情小视频 | 欧美性一区二区三区五区 | 色射综合 | 日本一级毛片2021免费 | 99re6这里有精品热视频在线 | 黄色伊人 | 奇米影音第四色 | 51国产午夜精品免费视频 | 999yy成年在线视频免费看 | 无夜精品久久久久久 | 久久国产在线视频 | 91精品全国免费观看老司机 |