利用VBA合并PDF文件

Sub MergePDF()    Dim objApp As Object                Dim objMainDoc As Object            Dim objTempDoc As Object            Dim i As Integer    Dim strFolderPath As String    Dim strDestPath As String    strFolderPath = "D:\test\"          strDestPath = strFolderPath & "Merged.pdf"    On Error Resume Next    Set objMainDoc = CreateObject("AcroExch.PDDoc")    Set objTempDoc = CreateObject("AcroExch.PDDoc")    On Error GoTo 0    If objMainDoc Is Nothing Then        MsgBox "无法创建 Acrobat 对象", vbCritical        Exit Sub    End If    If objMainDoc.Open(strFolderPath & "11.pdf") Then        For i = 12 To 20            If Dir(strFolderPath & i & ".pdf") <> "" Then                If objTempDoc.Open(strFolderPath & i & ".pdf") Then                    objMainDoc.InsertPages objMainDoc.GetNumPages() - 1, objTempDoc, 0, objTempDoc.GetNumPages(), True                    objTempDoc.Close                End If            End If        Next i        If objMainDoc.Save(1, strDestPath) Then            MsgBox "合并成功！" & strDestPath        Else            MsgBox "保存失败！"        End If        objMainDoc.Close    Else        MsgBox "找不到起始文件11.pdf", vbExclamation    End If    Set objMainDoc = Nothing    Set objTempDoc = NothingEnd Sub