Code Samples - Neevia PDFmerge/split

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

   Dim NVsplit : Set 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