给我写几个用vb代码实现的多个PDF合并成一个PDF

以下是用 VB 代码实现多个 PDF 合并成一个 PDF 的示例：

' 声明变量
Dim outputPdf As Acrobat.CAcroPDDoc
Dim inputPdf As Acrobat.CAcroPDDoc
Dim avDoc As Acrobat.CAcroAVDoc
Dim inputPdfFile As String
Dim outputPdfFile As String
Dim inputPdfList As Variant
Dim i As Long

' 设置文件路径和文件名
inputPdfList = Array("C:\Documents\Pdf1.pdf", "C:\Documents\Pdf2.pdf", "C:\Documents\Pdf3.pdf")
outputPdfFile = "C:\Documents\MergedPdf.pdf"

' 创建输出 PDF 文件
Set outputPdf = CreateObject("AcroExch.PDDoc")
outputPdf.Create

' 打开输出 PDF 文件
Set avDoc = CreateObject("AcroExch.AVDoc")
avDoc.Open outputPdfFile, ""

' 合并多个 PDF 文件
For i = LBound(inputPdfList) To UBound(inputPdfList)
    inputPdfFile = inputPdfList(i)
    
    ' 打开每个输入的 PDF 文件
    Set inputPdf = CreateObject("AcroExch.PDDoc")
    inputPdf.Open inputPdfFile
    
    ' 合并 PDF 文件
    If inputPdf.GetNumPages > 0 Then
        outputPdf.InsertPages outputPdf.GetNumPages - 1, inputPdf, 0, inputPdf.GetNumPages, False
    End If
    
    ' 关闭输入的 PDF 文件
    inputPdf.Close
Next i

' 保存并关闭输出 PDF 文件
outputPdf.Save 1, outputPdfFile
outputPdf.Close

' 关闭 Acrobat Reader
avDoc.Close False

注意：在运行该代码之前，需要安装 Adobe Acrobat 或 Acrobat Reader。此外，代码中涉及到的路径和文件名需要根据实际情况修改。