当您从网址追加pdf时，abcpdf不会添加书签

Question

Dim mainDoc As New WebSupergoo.ABCpdf8.Doc()
Dim pdfDoc As New WebSupergoo.ABCpdf8.Doc()
mainDoc.Append(pdfDoc) 'merge page one
mainDoc.Page = mainDoc.AddPage()
mainDoc.AddHtml("<P><B>Description:</B>  Sample Desc </P><BR><BR>")
mainDoc.AddBookmark("1 Intro", True)
mainDoc.Page = mainDoc.AddPage()
mainDoc.AddHtml("<P><B>second page:</B>  Sample Desc </P><BR><BR>")
mainDoc.AddBookmark("1 second page", True)

'Everything fine till this
Dim testDoc As New WebSupergoo.ABCpdf8.Doc()
testDoc.Read("www.google.com")
mainDoc.Append(testDoc)
mainDoc.AddBookmark("3 Google page", True) 

'最后一个谷歌页面书签无效，始终指向第一页（简介）

任何人都可以帮我这个......？我想附加一个文档并添加书签。

由于 暗部

Answer 1

搞定了。在添加书签之前，需要指定maindoc的页码。

Dim pageNum =  mainDoc.PageCount
Dim testDoc As New WebSupergoo.ABCpdf8.Doc()
testDoc.Read("www.google.com")
mainDoc.Append(testDoc)
mainDoc.PageNumber = pageNum +1
mainDoc.AddBookmark("3 Google page", True)