Code Samples - Neevia PDFmerge/split

1
2
3
4
5
6
7
8

   Dim NVsplit : Set NVsplit = CreateObject("PDFsplit.Neevia")
   NVsplit.SplitByBookmarks = true
   Dim retVal : retVal = NVsplit.SplitPDF("c:\1.pdf", "c:\out\")
   if retVal<>0 then
     MsgBox "Error = " & CStr(retVal)
   else 
     MsgBox "Done"
   end if