Dim PDFApp As Acrobat.AcroApp

Dim pddoc As Acrobat.AcroPDDoc

Dim tempPDDoc As Acrobat.AcroPDDoc

Set PDFApp = CreateObject("AcroExch.App")

Set pddoc = CreateObject("AcroExch.PDDoc")

Set tempPDDoc = CreateObject("AcroExch.PDDoc")

If Not tempPDDoc.Open("D:\temp\Test.pdf") Then

Set tempddoc = Nothing

Set pddoc = Nothing

Set PDFApp = Nothing

MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "系统信息"

Exit Sub

End If

ok = pddoc.Open("d:\temp\vk2.pdf")

If ok <> -1 Then

ok = pddoc.Create()

End If

Call pddoc.InsertPages(pddoc.GetNumPages() - 1, tempPDDoc, 0, tempPDDoc.GetNumPages(), False)

ok = pddoc.Save(1, "d:\temp\vk2.pdf")

Call pddoc.Close

tempPDDoc.Close

PDFApp.Exit

Set pddoc = Nothing

Set tempPDDoc = Nothing

Set PDFApp = Nothing

End Sub

Public Sub NewPDF()Dim ok As BooleanDim PDFApp As Acrobat.AcroAppDim pddoc As Acrobat.AcroPDDocDim tempPDDoc As Acrobat.AcroPDDocSet PDFApp = CreateObject("AcroExch.App")Set pddoc = CreateObject("Acro...