このチュートリアルでは、Toolkit を使用して既存の PDF 文書に、しおりを追加する方法について説明します。このチュートリアルを始めるにあたり、130 ページの PDF (ファイル名 : Input1.pdf) が必要です。「新規 PDF ファイルの作成」 チュートリアルで使用したサンプル B のスクリプトを変更して PDF を作成してください。
出力結果の PDF には、次のイメージのように複数のしおりが含まれます。
サンプル スクリプト
Set pdf = CreateObject("APToolkit.Object")
r = pdf.OpenOutputfile("Output.pdf")
pdf.AddBookmarks = True
r = pdf.MergeFile("Input1.pdf", 0, 0)
pdf.AddInternalLinkBookmark "Page 59", 59, 0, 0
pdf.AddInternalLinkBookmark "Page 121", 121, 0, 0
pdf.AddURLBookmark "activePDF, Inc.", "http://www.activepdf.com"
pdf.GotoNextBookmarkLevel
pdf.AddTextBookmark "Products"
pdf.GotoNextBookmarkLevel
pdf.AddURLBookmark "Server", "http://www.activepdf.com/products/serverproducts/server/index.cfm"
pdf.AddURLBookmark "Toolkit", "http://www.activepdf.com/products/serverproducts/toolkit/index.cfm"
pdf.GotoPreviousBookmarkLevel
pdf.AddTextBookmark "Support"
pdf.GotoNextBookmarkLevel
pdf.AddURLBookmark "Examples", "http://www.activepdf.com/support/troubleshooting/index.cfm"
pdf.CloseOutputFile
Set pdf = Nothing