Code Samples - Neevia PDFmerge/split

1
2
3
4
5
6
7

       Dim NVsplit : NVsplit = CreateObject("PDFsplit.Neevia")
       Dim retVal : retVal = NVsplit.SplitPDF("c:\1.pdf", "c:\out\")
       If retVal <> 0 Then
          MsgBox("Error = " & CStr(retVal))
       Else
          MsgBox("Done")
       End If