1 2 3 4 5 6 7 8
Dim NVsplit : 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