Using VBA to replace pages of one PDF with pages from another PDF

E

Elbrodero

New member
Joined
Jun 8, 2020
Messages
1
Reaction score
0
Points
0
Excel Version(s)
2019
I am trying to use VBA to replace the pages of one PDF with the pages of another. Specifically, I have a pdf called part1.pdf and another called part2.pdf. I want to create a merged pdf that has the first 3 pages of part1.pdf and pages 2-100 of part2.pdf.

I tried using this code, with no success.

Code: 
[COLOR=var(--blue-800)][FONT=inherit]Sub[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Button1_Click[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]()[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Dim[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] AcroApp [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]As[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Acrobat[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]CAcroApp

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Dim[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Part1Document [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]As[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Acrobat[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]CAcroPDDoc
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Dim[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Part2Document [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]As[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Acrobat[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]CAcroPDDoc

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Dim[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] numPages [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]As[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Integer[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Set[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] AcroApp [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] CreateObject[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"AcroExch.App"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Set[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Part1Document [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] CreateObject[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"AcroExch.PDDoc"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Set[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Part2Document [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] CreateObject[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"AcroExch.PDDoc"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    Doc1[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]Open [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"C:\temp\Part1.pdf"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    Doc2[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]Open [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"C:\temp\Part2.pdf"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    [/FONT][/COLOR][COLOR=var(--black-400)][FONT=inherit]' Insert the pages of Part2 after the end of Part1[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    numPages [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Doc1[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]GetNumPages[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]()[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]If[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Doc1[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]InsertPages[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]numPages [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]3[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit],[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Doc2[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit],[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
        [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]0[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit],[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Doc2[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]GetNumPages[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit](),[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]True[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]False[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Then[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
        MsgBox [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"Cannot insert pages"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]End[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]If[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]If[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Doc1[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]Save[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]([/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]PDSaveFull[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit],[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"C:\temp\MergedFile.pdf"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit])[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]False[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Then[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
        MsgBox [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"Cannot save the modified document"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]End[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]If[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    Doc1[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]Close
    Doc2[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]Close

    AcroApp[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit].[/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Exit[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Set[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] AcroApp [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]Nothing[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Set[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Part1Document [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]Nothing[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]
    [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Set[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] Part2Document [/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]=[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]Nothing[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

    MsgBox [/FONT][/COLOR][COLOR=var(--red-800)][FONT=inherit]"Done"[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit]

[/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]End[/FONT][/COLOR][COLOR=var(--black-750)][FONT=inherit] [/FONT][/COLOR][COLOR=var(--blue-800)][FONT=inherit]Sub[/FONT][/COLOR]

Anyone know that I am doing wrong?
 
You must log in or register to reply here.
Back
Top