Code Samples - Neevia PDFmerge/split

1
2
3
4
5
6
7
8

   Dim NVmerge : Set NVmerge = CreateObject("PDFMerge.Neevia")
   NVmerge.removeBookmarks = true
   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