[Link Annotation]リンク注釈（同一ドキュメント内の他のページビューの移動）

Link Annotationには２種類あって処理がわかります。
【A】同一ドキュメント内の他のページビュー（ページの移動）
【B】WEBのURLを参照先とするLink Annotationの２種類があります

---

【A】同一ドキュメント内の他のページビュー（ページの移動）
ならAppleScriptから作成、設定、変更が可能です
【B】WEBのURLを参照先とするLink Annotation
の場合は、Javascriptを利用する事になります

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

# com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

tell application "Adobe Acrobat"

  tell active doc

    set numAllPage to do script ("this.numPages;")

    set numNowPage to do script ("this.pageNum;")

    try

      set numJsNowPage to (numNowPage - 1)

    on error

return "ドキュメントを開いていません"

    end try

  end tell

end tell

###リンク注釈を作成

tell application "Adobe Acrobat"

  tell active doc

    tell front PDF Window

      tell front page

###位置指定　左下

set listPageBounds to {10, 100, 100, 10} as list

###４ページ移動する　ズーム５０　枠線黒

set recordProperties to {bounds:listPageBounds, destination page number:4, name:"PageLink", color:{0, 0, 0}, zoom factor:50, fit type:fit width} as record

make Link Annotation with properties recordProperties

      end tell

    end tell

  end tell

end tell

###作成したリンク注釈の値を変更する

tell application "Adobe Acrobat"

  tell active doc

    tell front PDF Window

      tell front page

set listAnnot to (every annotation)

repeat with itemAnnot in listAnnot

###ここで対象のLINKアノテーションなのか？判断する分岐が必要です

tell itemAnnot

###１ページに移動する　ズーム100　枠線 赤に変更

set color to {255, 0, 0}

set destination page number to 1

set zoom factor to 100

end tell

end repeat

      end tell

    end tell

  end tell

end tell

---