Hi all,
I found below code and will have a look at it later. Seems no one has idea how to do this.
Private Sub SplitPDF()
Dim PDFDoc As Object
Dim JSO As Object
Dim PDFCompletePath As String
PDFCompletePath = "C:\Documents and Settings\My Documents\My Docs\PDFTest\Test.pdf"
Dim BookMarkRoot As Object
Dim BookMarks As Variant
Dim LevelCount As Long
Set PDFDoc = CreateObject("AcroExch.PDDoc")
Stop
If PDFDoc.Open(PDFCompletePath) Then
Set JSO = PDFDoc.GetJSObject
BookMarks = JSO.BookMarkRoot.Children
LevelCount = UBound(BookMarks)
Dim FirstNode
FirstNode = BookMarks(0).Children
Dim i As Integer
Dim CurrentRootNode
For i = 0 To LevelCount
CurrentRootNode = BookMarks(i).Children
BookMarks(i).Execute
Next
End If
Exit Sub
End Sub
Bookmarks