1 2 3 4 5 6 7
Dim NVmerge : Set NVmerge = CreateObject("PDFMerge.Neevia") Dim retVal : retVal = NVmerge.MergePDF("c:\1.pdf+c:\2.pdf", "c:\merged.pdf") If retVal <> 0 Then MsgBox("Error code=" & CStr(retVal)) Else MsgBox("Done") End If