TOP > サンプル / 関数 > *

---

　

概要

PDFの指定テキストに以下のリンクを追加します。

1. PDF内のページ移動
2. 他のPDFファイルを開く
3. Webページを開く

処理方法は大きく２つです。

1. 指定テキストのページ番号と座標を取得
2. その情報でリンクを追加する為のAcrobat JavaScriptを実行

共にVBAからAcrobat OLE経由でAcrobat JavaScriptを実行して処理をします。

　

関数の利用

「関数：文字列のページ番号と座標を返す」で紹介している関数： GetTextsGetRects を使用して、文字列検索をさせ、そのページ番号と座標を取得します。その結果を使ってリンクを追加します。

　

サンプル

テキストを検索し、それに以下のリンクを設定します。

• "マニュアルを参照"：　ABC.pdfを開く
• "PDF"：　pdf-file.nnn2.comを開く
• "目次の先頭"：　ページ番号=4 へ移動

以下は実行するAcrobat JavaScriptのサンプルです。

var link = this.addLink(0, [200,200,400,300]); link.setAction( "this.pageNum = 9"); link.borderColor = color.red; link.borderWidth = 1;

　

参照設定が２つ必要です。

• Acrobat  OLEの参照設定
• AFormAut

Download：  /p1100_AFormAut-AddLinkTexts.zip ( 90.7 KB )

001 Option Explicit 002 003 '************************************************** 004 ' 005 ' サンプル：テキストにリンクを追加 006 ' 007 ' 作成：2020/04/01 008 ' 更新：2026/03/23 009 ' 010 ' https://pdf-file.nnn2.com/?p=1100 011 ' 012 ' 注意：傾いた文字列には正しくリンクを設定出来ない 013 ' 場合が有ります。 014 ' 015 '************************************************** 016 017 Sub Sample_AddLinkTexts() 018 019 Dim start As Double: start = Timer 020 Debug.Print "Sample_AddLinkTexts " & Time 021 022 Dim bRet As Boolean 023 Dim sFilePathIn As String 024 Dim sFilePathOut As String 025 Dim iOutCnt As Long 026 Dim i1 As Long 027 Dim gSerch(6) As type_SerchTexts 028 Dim gRects() As type_TextRect 029 Dim sAction(6) As String 030 031 032 '初期化 033 i1 = 0 034 '▼検索テキスト 035 gSerch(i1).sSerchText = "マニュアルを参照" 036 ' リンクで動作するAcrobat JavaScript 037 sAction(i1) = "app.openDoc('/D/ABC/xyz.pdf');" 038 'sAction(i1) = "app.openDoc('/I//サンプル/test-001.pdf');" 039 i1 = i1 + 1 040 gSerch(i1).sSerchText = "PDF" 041 sAction(i1) = "this.getURL('https://pdf-file.nnn2.com/');" 042 i1 = i1 + 1 043 gSerch(i1).sSerchText = "目次の先頭" 044 sAction(i1) = "this.pageNum=3;" 045 i1 = i1 + 1 046 gSerch(i1).sSerchText = "プロパティ" 047 sAction(i1) = "this.pageNum=3;" 048 i1 = i1 + 1 049 gSerch(i1).sSerchText = "メソッド" 050 sAction(i1) = "this.pageNum=3;" 051 i1 = i1 + 1 052 gSerch(i1).sSerchText = "追加機能がありますが" 053 sAction(i1) = "this.pageNum=3;" 054 055 '▼テキストを検索し、ページ番号と座標を得る 056 sFilePathIn = ThisWorkbook.Path & "\test-003.pdf" 057 'See URL. https://pdf-file.nnn2.com/?p=1099 058 bRet = GetTextsGetRects(sFilePathIn, -1, -1, _ 059 gSerch, gRects, iOutCnt) 060 061 '▼リンクを追加する 062 Dim objAcroApp As New Acrobat.AcroApp 063 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 064 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 065 Dim objAcroPDPage As Acrobat.AcroPDPage 066 Dim objAcroAVPageView As Acrobat.AcroAVPageView 067 Dim objAFormApp As New AFORMAUTLib.AFormApp 068 Dim objAFormFields As AFORMAUTLib.Fields 069 070 objAcroApp.CloseAllDocs 071 objAcroApp.Hide 072 073 'PDFファイルを開く 074 bRet = objAcroAVDoc.Open(sFilePathIn, "") 075 076 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc 077 ' Set objAFormApp = CreateObject("AFormAut.App") 078 Set objAFormFields = objAFormApp.Fields 079 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc 080 081 Dim sWkQuads() As String 082 Dim i2 As Long 083 Dim sAJS As String 084 Dim sReturn As String '未使用 085 086 Const sAcrobatJavaScript As String = _ 087 "var link = this.addLink(@P, [@1,@2,@3,@4]) ;" & _ 088 "link.setAction(""@A"") ;" & _ 089 "link.borderColor = @C ;" & _ 090 "link.borderWidth = @W ;" 091 092 For i1 = 0 To iOutCnt 093 With gRects(i1) 094 If .iSearchNo = -1 Then Exit For 095 ' Debug.Print "Text(" & i1 & ")=" & _ 096 ' gSerch(.iSearchNo).sSerchText & _ 097 ' " Index=" & .iSearchNo & _ 098 ' " Page=" & .iPageNo & _ 099 ' " Quads=" & .sQuads 100 sWkQuads = Split(.sQuads, ",") 101 For i2 = 0 To UBound(sWkQuads) Step 8 102 'Acrobat JavaScriptの編集 103 sAJS = sAcrobatJavaScript 104 sAJS = Replace(sAJS, "@P", .iPageNo) 105 sAJS = Replace(sAJS, "@1", sWkQuads(i2 + JZ.iLeft)) 106 sAJS = Replace(sAJS, "@2", sWkQuads(i2 + JZ.iTop)) 107 sAJS = Replace(sAJS, "@3", sWkQuads(i2 + JZ.iRight)) 108 sAJS = Replace(sAJS, "@4", sWkQuads(i2 + JZ.iBottom)) 109 sAJS = Replace(sAJS, "@A", sAction(.iSearchNo)) 110 sAJS = Replace(sAJS, "@C", "color.red") 111 sAJS = Replace(sAJS, "@W", 1) 112 'Acrobat JavaScript の実行 113 sReturn = objAFormFields.ExecuteThisJavascript(sAJS) 114 Next i2 115 End With 116 Next i1 117 118 'PDFファイルを別名で保存 119 sFilePathOut = Replace(sFilePathIn, ".pdf", "-AddLinks.pdf") 120 If objAcroPDDoc.Save(1, sFilePathOut) = False Then 121 MsgBox "PDFファイルへ保存出来ませんでした", _ 122 vbOKOnly + vbCritical, "実行エラー" 123 End If 124 125 '変更しないで閉じます。 126 bRet = objAcroAVDoc.Close(False) 127 'Acrobatアプリケーションの終了 128 objAcroApp.Hide 129 objAcroApp.Exit 130 'オブジェクトの開放 131 Set objAcroAVPageView = Nothing 132 Set objAcroPDPage = Nothing 133 Set objAcroPDDoc = Nothing 134 Set objAcroAVDoc = Nothing 135 Set objAFormApp = Nothing 136 Set objAFormFields = Nothing 137 Set objAcroApp = Nothing 138 139 Debug.Print "出力件数 = " & iOutCnt 140 Debug.Print "処理時間 = " & Timer - start 141 End Sub

　

　

関数： GetTextsGetRects のソースはコチラから持ってきてください。

　

実行結果

実行前です。

実行後です。

以下のリンク動作は正常に確認できました。

• "マニュアルを参照"：　ABC.pdfを開く
• "PDF"：　pdf-file.nnn2.comを開く
• "目次の先頭"：　ページ番号=2へ移動

　

使用上の注意

1. 座標が正しく検索できないことが有ります。詳細は「関数： GetTextsGetRects 」を御覧ください。
2. テキスト（文字列）の回転角度によってはリンク枠が表示できないときが有ります。rect座標で指定しているのが原因です。Quads座標で指定できれば解決できるのですが、文法上出来ません。

　

Acrobat JavaScriptの説明

リンクを追加するAcrobat JavaScriptの各命令（メソッドとプロパティ）の説明です。

特に深く理解する必要は無いです。サンプルのやり方を真似るだけで結構です。

ココでの説明はメーカーのマニュアル「JavaScript™ for Acrobat® API Reference Adobe® Acrobat® SDK バージョン 8.0」とは異なり、Acrobat JavaScript専用の表現を無くしています。説明も関係する部分のみとしました。

*AD：ネット公開されている上記の日本語マニュアルを表示します。

　

1. addLink( nPage , [ Left , Top , Right , Bottom ] )

指定したページに、指定した座標で新しいリンクを追加します。位置情報のみを指定します。( *AD )

• nPage：リンクを追加するページ番号。１ページ目は 0 です。
• Left：座標Leftの値
• Top：座標Topの値
• Right：座標Rightの値
• Bottom：座標Bottomの値

　

2. setAction

動作を示すAcrobat JavaScript コードを指定します。今回のリンクに関連する動作としては以下の３つが有ります。( *AD )

1. PDF内のページ移動
   • 例：３ページ目に移動する。
     setAction( "this.pageNum = 2;" );
   • ページ番号の先頭は０です。
   • 次ページへの移動は
     setAction( "this.pageNum++;" );
     　
2. 他のPDFファイルを開く
   • 例：D:￥ABC￥xyz.pdf を開く。
     setAction( "app.openDoc( '/D/ABC/xyz.pdf ' );" );
   • パスはWindowsのパスでは無く、上記のような形式にします。
   • フォルダ名に日本語が入ってもOKです。
   • パスはシングルクォーテーション「'」で囲みます。
     　
3. Webページを開く
   • 例： pdf-file.nnn2.com を開く。
     setAction(" this.getURL( 'https://pdf-file.nnn2.com/' ); ");
   • URLはシングルクォーテーション「'」で囲みます。
     　

　

3. borderColor

リンクの境界線の色を指定します。( *AD )

例：borderColor = color.red;

• 白：color.white
• 赤：color.red
• 緑：color.green
• 青：color.blue
• シアン：color.cyan
• マゼンタ：color.magenta
• イエロー：color.yellow
• ダークグレー：color.dkGray
• グレー：color.gray
• ライトグレー：color.ltGray

他の色を使いたい時はRGBやCMYKで指定してください。詳細はマニュアルを御覧ください。

　

4. borderWidth

リンクの境界線の幅を指定します。 ( *AD )

例：borderWidth = 1 ;

• 0：なし
• 1：細
• 2：標準
• 3：太

　

5. highlightMode

リンクの領域内でマウスボタンを押したときに使用する視覚効果を設定します。混乱させないためにもデフォルトの方がユーザーにはイイです。( *AD )

• None：効果なし
• Invert ( デフォルト)：
• Outline：アウトライン
• Push：プッシュ

　

6. rect

リンクの矩形を表す 4 つの数値配列です。左上隅のx 座標、左上隅のy 座標、右下隅のx 座標、右下隅のy 座標を配列「[ Left , Top , Right , Bottom ]」を表します。( *AD )

例：今回は直に配列で指定するので省略。

　

　

備考

• 処理時間は掛かります。業務での使用時はSSDなどの高速な環境をご用意ください。

　

参照

• 関数：文字列のページ番号と座標を返す
• PDF上のテキストとその座標
• AFormAut : ExecuteThisJavascript メソッド
• サンプル：テキストのリンク数をカウント