Code Samples - Neevia PDFmerge/split

1
2
3
4
5
6
7
8

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