Code Samples - Neevia PDFmerge/split

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

        Dim NVsplit : NVsplit = CreateObject("PDFsplit.Neevia")

        NVsplit.PDFEncrypt = True
        NVsplit.PDFEncryptionType = "rc4"
        NVsplit.PDFOwnerPassword = "owner"

        ' p - document printing is denied
        ' e - disable extraction of text and graphics
        NVsplit.PDFPermissions = "pe"

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