
Public Sub merge()
Dim gPDDoc1 As AcroPDDoc
Dim gPDDoc2 As AcroPDDoc
Dim gPDDOC3 As AcroPDDoc
Set gPDDoc1 = CreateObject("AcroExch.PDDoc")
Set gPDDoc2 = CreateObject("AcroExch.PDDoc")
chk1 = gPDDoc1.Open("Q:ComuneMarcheselavoro xmlcondizionigenerali.pdf")
chk2 = gPDDoc2.Open("Q:ComuneMarcheselavoro xmlCERTIFICATO.pdf")
mergefile = gPDDoc1.InsertPages(0, gPDDoc2, 0, 1, 0)
savemergefile = gPDDoc1.Save(1, "C:")
End Sub |
