1 
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)

'最後のグーグルページのブックマークが機能せず、常に最初のページを指している（イントロ）

誰かがこれで私を助けることができますか...？ドキュメントを追加してブックマークを追加したい。

ありがとう安部

4

1 に答える 1

2

動作しました。ブックマークを追加する前に、メインドキュメントのページ番号を指定する必要があります。

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)
于 2012-10-03T09:49:05.163 に答える