Merge PDF documents and save with a new name as per Excel Sheet

[abdulads]

Hi, Please help me Merge PDF Documents as per the Excel Sheet and path provided in it.

Here we have to combine File Name 1 and File Name 2 and give the Output in the Final Folder with the Given output name.

File Name1​	File Name2​	Output​
C:/Home/1.pdf​	C:/Office/2.pdf​	C:/Final/1&2.PDF​
C:/Home/3.pdf​	C:/Office/4pdf​	C:/Final/3&4.PDF​
C:/Home/5.pdf​	C:/Office/6.pdf​	C:/Final/5&6.PDF​

 

[Cameron97]

Hi I am wondering how would I make the above apply to merging 4 pdfs. I cannot seem to figure out the changes required to amend it correctly.

 

[Cameron97]

Hi I am wondering how would I make the above apply to merging 4 pdfs. I cannot seem to figure out the changes required to amend it correctly.

@John_w could you help with this?

 

[John_w]

Following the same cells layout as the OP, but with the 4 input PDF file names in columns A:D and the output PDF file name in column E, change the loop to:

    Dim c As Long
    For i = 1 To UBound(PDFfiles)
        objCAcroPDDocDestination.Open PDFfiles(i, 1)
        For c = 2 To 4
            objCAcroPDDocSource.Open PDFfiles(i, c)
            If Not objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
                MsgBox "Error merging" & vbCrLf & PDFfiles(i, 1) & vbCrLf & "and" & vbCrLf & PDFfiles(i, c), vbExclamation
            End If
            objCAcroPDDocSource.Close
        Next
        objCAcroPDDocDestination.Save 1, PDFfiles(i, c)
        objCAcroPDDocDestination.Close
    Next

However, please start a new thread if the way you specify the PDFs is different to the OP.

 

[Cameron97]

Following the same cells layout as the OP, but with the 4 input PDF file names in columns A:D and the output PDF file name in column E, change the loop to:

    Dim c As Long
    For i = 1 To UBound(PDFfiles)
        objCAcroPDDocDestination.Open PDFfiles(i, 1)
        For c = 2 To 4
            objCAcroPDDocSource.Open PDFfiles(i, c)
            If Not objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
                MsgBox "Error merging" & vbCrLf & PDFfiles(i, 1) & vbCrLf & "and" & vbCrLf & PDFfiles(i, c), vbExclamation
            End If
            objCAcroPDDocSource.Close
        Next
        objCAcroPDDocDestination.Save 1, PDFfiles(i, c)
        objCAcroPDDocDestination.Close
    Next

However, please start a new thread if the way you specify the PDFs is different to the OP.

Hi @John_w it now wont merge the files at all the error merging message appears. I have specified my pdfs the same as the OP.

 

[Cameron97]

Hi @John_w it now wont merge the files at all the error merging message appears. I have specified my pdfs the same as the OP.

I input the information incorrectly apologies very new to VBA. Thanks for the help. Much appreciated. @John_w

 

[excelrxk]

Hi All,

I only have bluebeam software install on my PC. Anyone know how to use Revu Bluebeam API Object instead of Acrobat.

'Create Acrobat API objects

Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")

Thank you.