使用Access VBA问题将PDF合并为一个PDF文件

Sub MergePDFs()
    Dim objAcroApp As Acrobat.CAcroApp
    Dim objAcroAVDoc As Acrobat.CAcroAVDoc
    Dim objAcroPDDoc As Acrobat.CAcroPDDoc
    Dim objOutputPDDoc As Acrobat.CAcroPDDoc
    Dim strFolderPath As String
    Dim strOutputPath As String
    Dim strFileName As String
    Dim i As Integer
    
    ' 设置输入文件夹路径和输出文件路径
    strFolderPath = "C:\PDFs\" ' 输入文件夹路径
    strOutputPath = "C:\MergedPDFs\output.pdf" ' 输出文件路径
    
    ' 创建Acrobat对象
    Set objAcroApp = CreateObject("AcroExch.App")
    
    ' 创建输出PDF文档
    Set objOutputPDDoc = CreateObject("AcroExch.PDDoc")
    
    ' 遍历输入文件夹中的所有PDF文件
    strFileName = Dir(strFolderPath & "*.pdf")
    Do While strFileName <> ""
        ' 打开PDF文件
        Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
        objAcroAVDoc.Open strFolderPath & strFileName, ""
        Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
        
        ' 合并PDF页面到输出文档
        For i = 0 To objAcroPDDoc.GetNumPages - 1
            objOutputPDDoc.InsertPages objOutputPDDoc.GetNumPages - 1, objAcroPDDoc, i, 1, True
        Next i
        
        ' 关闭打开的PDF文件
        objAcroAVDoc.Close False
        
        ' 继续处理下一个文件
        strFileName = Dir
    Loop
    
    ' 保存输出PDF文件
    objOutputPDDoc.Save 1, strOutputPath
    
    ' 关闭输出PDF文件
    objOutputPDDoc.Close
    
    ' 退出Acrobat应用程序
    objAcroApp.Exit
    Set objAcroApp = Nothing
    
    MsgBox "PDF文件合并完成！"
End Sub