Replace pages of one PDF with pages of another PDF using VBA and Adobe 10

[elbrodero]

I am trying to use VBA to replace pages of part1.pdf with pages of part2.pdf and create mergedpdf.pdf.

I tried the following code:

Sub Button1_Click()

    Dim AcroApp As Acrobat.CAcroApp

    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim Part2Document As Acrobat.CAcroPDDoc

    Dim numPages As Integer

    Set AcroApp = CreateObject("AcroExch.App")

    Set Part1Document = CreateObject("AcroExch.PDDoc")
    Set Part2Document = CreateObject("AcroExch.PDDoc")

    Doc1.Open ("C:\temp\Part1.pdf")
    Doc2.Open ("C:\temp\Part2.pdf")

    ' Insert the pages of Part2 after the end of Part1
    numPages = Doc1.GetNumPages()

    If Doc1.InsertPages(numPages 3, Doc2,
        0, Doc2.GetNumPages(), True) = False Then
        MsgBox "Cannot insert pages"
    End If

    If Doc1.Save(PDSaveFull, "C:\temp\MergedFile.pdf") = False Then
        MsgBox "Cannot save the modified document"
    End If

    Doc1.Close
    Doc2.Close

    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
    Set Part2Document = Nothing

    MsgBox "Done"

End Sub

What the code does right now is open doc1.pdf and save it as MergedFile.pdf. But it does not replace pages. Can anyone help me out?

 

[John_w]

Welcome to MrExcel forums.

See if the following code helps, noting that it merges 2 or more PDF files specified in Excel cells, rather than files specified in the code:

VBA, Combine PDFs into one PDF

Hi all, Say I have a few pdfs, I list location/file name in cell, 1 pdf file with 5 pages, and a few other pdfs, is there any vba code that can combine this into one pdf? Is this possible?

www.mrexcel.com

 

[yky]

Try this bare code, no error handling.

Sub delete_insert()

 Dim AcroApp As Acrobat.CAcroApp

    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim Part2Document As Acrobat.CAcroPDDoc
    Dim i As Integer
    Dim j As Integer
    Dim numPages As Integer

    Set AcroApp = CreateObject("AcroExch.App")

    Set Part1Document = CreateObject("AcroExch.PDDoc")
    Set Part2Document = CreateObject("AcroExch.PDDoc")

    Part1Document.Open ("C:\temp\test1.pdf")
    Part2Document.Open ("C:\temp\test2.pdf")
    
    i = Part1Document.DeletePages(0, 4)  'delete page 1 to 5. note: the first page is 0
    
    j = Part1Document.InsertPages(1, Part2Document, 0, 2, 0) ' insert page 1 and 2 in Part2Document into Part1Document starting from after the 2nd page

    If Part1Document.Save(PDSaveFull, "C:\temp\MergedFile.pdf") = False Then
        MsgBox "Cannot save the modified document"
    End If

    Part1Document.Close
    Part2Document.Close

    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
    Set Part2Document = Nothing

    MsgBox "Done"

End Sub