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.
Anyone know that I am doing wrong?
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?