VBA實踐+批量合并pdf

聲明：文章僅供參考，嘗試，請注意備份文件。

作用：把文件夾下若干個小文檔合并成一個大文檔。

以下代碼創建一個空白pdf文檔，然后依次把文件夾下的所有小pdf文檔插入到該文檔中，然后以“合并.pdf”保存在同一文件夾下。代碼的運行環境為Win8.1，Word2010 VBA，Acrobat Pro DC，在本機測試成功。為保證小文檔插入的順序正確，請用數字序號命名文檔，且序號位置文件名開頭，如001.pdf，002.pdf，0不可省略。

使用到的主要方法為PDDoc.InsertPages，它的作用是在當前文檔中的指定頁之后插入原文檔中的指定頁，有5個參數：

nInsertPageAfter 在當前文檔中哪一頁后開始插入。Pdf文檔的第一頁是第0頁。

iPDDocSource 原文檔對象

nStartPage 從原文檔中的哪一頁開始。

nNumPages 要插入多少頁。

bBookmarks 是否從原文檔復制書簽，如果為0，則不復制，為正數，則復制。

Sub 批量合并pdf() '合并一個文件夾下的所有pdf文檔 '為保證順序正確，請用數字序號命名文檔，且序號位置文件名開頭，如001.pdf，002.pdf，0不可省略Dim pdfFolder As String, pdfName As String Dim sPDdoc As New Acrobat.AcroPDDoc, tPDdoc As New Acrobat.AcroPDDoc Dim PageNum As Long pdfFolder = "F:userdataDesktopVBA實踐+批量合并pdf" 'pdf文檔目錄 tPDdoc.Create '創建一個空白pdf文檔，準備接收其他pdf文檔 pdfName = Dir(pdfFolder) '讀取第一個pdf文檔名稱Do While pdfName <> ""If sPDdoc.Open(pdfFolder & pdfName) Then '打開文檔PageNum = sPDdoc.GetNumPages '獲得頁數tPDdoc.InsertPages tPDdoc.GetNumPages - 1, sPDdoc, 0, PageNum, 0 '總是在tppdoc的最后一頁的后面插入spddoc的所有頁面sPDdoc.CloseEnd IfpdfName = Dir LooptPDdoc.Save PDSaveFull, pdfFolder & "合并.pdf" '保存合并文件 tPDdoc.Close '關閉合并文件Set sPDdoc = Nothing Set tPDdoc = Nothing MsgBox "完成！"End Sub

總結

以上是生活随笔為你收集整理的vba 当前文件名_VBA实践+批量合并pdf的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。