PDF XChange Forum

Code: Select all

Private Sub AddBookmark()
        Dim pDoc As PDFXCoreAPI.IPXC_Document = OpenDocumentFromFile(sFileAddBookmark, pdfInst)
        If pDoc Is Nothing Then
            Return
        End If

        Dim bmRoot As PDFXCoreAPI.IPXC_Bookmark = Nothing
        Dim bmLevel1 As PDFXCoreAPI.IPXC_Bookmark = Nothing
        Dim bmLevel2 As PDFXCoreAPI.IPXC_Bookmark = Nothing
        Dim bm As PDFXCoreAPI.IPXC_Bookmark = Nothing
        Dim dest As PDFXCoreAPI.PXC_Destination = Nothing
        Dim al As PDFXCoreAPI.IPXC_ActionsList = Nothing
        Dim page As UInteger = 0

        bmRoot = pDoc.BookmarkRoot
        If bmRoot IsNot Nothing Then
            bmLevel1 = bmRoot

            page = 3
            bm = bmLevel1.AddNewChild(True)
            bm.Title = "Bookmark Level 1"
            dest = New PDFXCoreAPI.PXC_Destination
            dest.nPageNum = Convert.ToUInt32(page - 1)
            dest.nNullFlags = 15
            dest.nType = PDFXCoreAPI.PXC_DestType.Dest_XYZ
            al = pDoc.CreateActionsList()
            al.AddGoto(dest)
            bm.Actions = al

            bmLevel2 = bm

            '#################################################################

            page = 6
            bm = bmLevel2.AddNewChild(True)
            bm.Title = "Bookmark Level 2"
            dest = New PDFXCoreAPI.PXC_Destination
            dest.nPageNum = Convert.ToUInt32(page - 1)
            dest.nNullFlags = 15
            dest.nType = PDFXCoreAPI.PXC_DestType.Dest_XYZ
            al = pDoc.CreateActionsList()
            al.AddGoto(dest)
            bm.Actions = al
        End If

        pDoc.WriteToFile(sFileAddBookmark)
        pDoc.Close()
End Sub