I am getting "ActiveX component can't create object" on this line:
Set gPDDoc1 = CreateObject("Title Page Region.pdf")
In reference to this:
Sub Merge()
Dim gPDDoc1 As AcroPDDoc
Dim gPDDoc2 As AcroPDDoc
'Dim gPDDOC3 As AcroPDDoc
Set gPDDoc1 = CreateObject("Title Page.pdf")
Set gPDDoc2 = CreateObject("TEST PDF.pdf")
'Set gPDDOC3 = CreateObject("AcroExch.PDDoc")
chk1 = gPDDoc1.Open("S:\Folder\Title Page.pdf")
chk2 = gPDDoc2.Open("S:\Folder\TEST PDF.pdf")
'chk3 = gPDDOC3.Open("C:\test\test3.pdf")
mergefile = gPDDoc1.InsertPages(0, gPDDoc2, 1, 2, 3)
'mergefile = gPDDoc1.InsertPages(1, gPDDOC3, 0, 1, 0)
savemergefile = gPDDoc1.Save(1, "K:\Folder2\MERGED.pdf")
End Sub
I have a fairly elementary understanding of VBA.
Bookmarks