VBA批量遍历多张图合并成一个PDF

你可以使用 VBA 中的 Adobe Acrobat 库来实现这个功能。首先，你需要创建一个 Acrobat 对象并打开一个 PDF 文件。然后，你可以使用 AddPages 方法将其他 PDF 文件添加到当前文件中。最后，你可以使用 Save 方法将所有页面保存为一个新的 PDF 文件。以下是示例代码：

Sub MergePDFs()
Dim acroApp As Object
Dim acroDoc As Object
Dim pdfPath As String
Dim pdfFiles() As String
Dim i As Integer

'获取所有要合并的 PDF 文件的路径
pdfFiles = Split("C:\PDF1.pdf,C:\PDF2.pdf,C:\PDF3.pdf", ",")

'创建 Acrobat 对象并打开第一个 PDF 文件
Set acroApp = CreateObject("AcroExch.App")
Set acroDoc = CreateObject("AcroExch.PDDoc")
pdfPath = pdfFiles(0)
acroDoc.Open pdfPath

'将其他 PDF 文件添加到当前文件中
For i = 1 To UBound(pdfFiles)
pdfPath = pdfFiles(i)
acroDoc.InsertPages acroDoc.GetNumPages - 1, pdfPath, 0, 1, 0
Next i

'保存所有页面为一个新的 PDF 文件
acroDoc.Save 1, "C:\MergedPDF.pdf"

'关闭 Acrobat 对象
acroDoc.Close
acroApp.Exit
Set acroDoc = Nothing
Set acroApp = Nothing
End Sub