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