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

Access VBA是一种用于Microsoft Access数据库的编程语言，可以通过编写VBA代码来实现自定义功能和自动化任务。在使用Access VBA将PDF合并为一个PDF文件时，可以采取以下步骤：

首先，确保已经安装了Adobe Acrobat软件，因为它提供了用于处理PDF文件的功能。
在Access数据库中创建一个新的模块，用于编写VBA代码。
导入所需的参考库。在VBA编辑器中，点击"工具"菜单，然后选择"引用"。在弹出的对话框中，找到并勾选"Adobe Acrobat xx.0 Type Library"（其中xx.0表示安装的Adobe Acrobat版本号），然后点击"确定"。
编写VBA代码来合并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