vb.net - 当您从 url 附加 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)