テキストにリンクを追加

TOP > サンプル / 関数 > *      [...]


相馬野馬追@TCK

 

概要

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

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

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

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

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

 

関数の利用

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

 

サンプル

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

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

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

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

 

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

ダウンロード:sample-AddLinkTexts.xls

 

 

001 Option Explicit 002 003 '************************************************** 004 ' 005 ' サンプル:テキストにリンクを追加 006 ' 007 ' 008 '************************************************** 009 010 Sub Sample_AddLinkTexts() 011 012 Dim start As Double: start = Timer 013 Debug.Print "Sample_AddLinkTexts " & Time 014 015 Dim bRet As Boolean 016 Dim sFilePathIn As String 017 Dim sFilePathOut As String 018 Dim lOutData(100, 5) As Long 019 Dim iOutCnt As Long 020 Dim i1 As Long 021 Dim sInSerchText() As String 022 Dim sAction() As String 023 ReDim sInSerchText(2) As String 024 ReDim sAction(2) As String 025 026 '初期化 027 i1 = 0 028 ' 検索テキスト 029 sInSerchText(i1) = "マニュアルを参照" 030 ' リンクで動作するAcrobat JavaScript 031 sAction(i1) = "app.openDoc('/D/ABC/xyz.pdf');" 032 'sAction(i1) = "app.openDoc('/I//サンプル/test-001.pdf');" 033 i1 = i1 + 1 034 sInSerchText(i1) = "PDF" 035 sAction(i1) = "this.getURL('https://pdf-file.nnn2.com/');" 036 i1 = i1 + 1 037 sInSerchText(i1) = "目次の先頭" 038 sAction(i1) = "this.pageNum=3;" 039 040 '▼テキストを検索し、ページ番号と座標を得る 041 sFilePathIn = ThisWorkbook.Path & "\test-003.pdf" 042 'See URL. https://pdf-file.nnn2.com/?p=1099 043 bRet = GetTextsGetRects(sFilePathIn, -1, -1, _ 044 sInSerchText, lOutData, iOutCnt) 045 046 '▼リンクを追加する 047 048 Dim objAcroApp As New Acrobat.AcroApp 049 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 050 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 051 Dim objAcroPDPage As Acrobat.AcroPDPage 052 Dim objAcroPoint As Acrobat.AcroPoint 053 Dim objAcroHiliteList As New Acrobat.AcroHiliteList 054 Dim objAcroAVPageView As Acrobat.AcroAVPageView 055 Dim objAcroPDTextSelect As Acrobat.AcroPDTextSelect 056 Dim objAcroRect As Acrobat.AcroRect 057 Dim objAFormApp As AFORMAUTLib.AFormApp 058 Dim objAFormFields As AFORMAUTLib.Fields 059 060 objAcroApp.CloseAllDocs 061 objAcroApp.Hide '稀に表示されるので隠す 062 063 'PDFファイルを開く 064 bRet = objAcroAVDoc.Open(sFilePathIn, "") 065 066 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc 067 Set objAFormApp = CreateObject("AFormAut.App") 068 Set objAFormFields = objAFormApp.Fields 069 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc 070 071 Dim sAJS As String 072 Dim sReturn As String '未使用 073 074 Const sAcrobatJavaScript As String = _ 075 "var link = this.addLink(@P, [@1,@2,@3,@4]) ;" & _ 076 "link.setAction(""@A"") ;" & _ 077 "link.borderColor = @C ;" & _ 078 "link.borderWidth = @W ;" 079 080 For i1 = 0 To iOutCnt 081 If lOutData(i1, 0) = -1 Then Exit For 082 Debug.Print "Text(" & i1 & ")=" & _ 083 sInSerchText(lOutData(i1, eOut.Index)) & _ 084 " Index=" & lOutData(i1, eOut.Index) & _ 085 " Page=" & lOutData(i1, eOut.Page) & _ 086 " Top=" & lOutData(i1, eOut.Top) & _ 087 " Bottom=" & lOutData(i1, eOut.bottom) & _ 088 " Left=" & lOutData(i1, eOut.Left) & _ 089 " Right=" & lOutData(i1, eOut.Right) 090 091 'Acrobat JavaScriptの編集 092 sAJS = sAcrobatJavaScript 093 sAJS = Replace(sAJS, "@P", lOutData(i1, eOut.Page)) 094 sAJS = Replace(sAJS, "@1", lOutData(i1, eOut.Left)) 095 sAJS = Replace(sAJS, "@2", lOutData(i1, eOut.Top)) 096 sAJS = Replace(sAJS, "@3", lOutData(i1, eOut.Right)) 097 sAJS = Replace(sAJS, "@4", lOutData(i1, eOut.bottom)) 098 sAJS = Replace(sAJS, "@A", sAction(lOutData(i1, eOut.Index))) 099 sAJS = Replace(sAJS, "@C", "color.blue") 100 sAJS = Replace(sAJS, "@W", 1) 101 102 'Acrobat JavaScript の実行 103 sReturn = objAFormFields.ExecuteThisJavascript(sAJS) 104 Next i1 105 106 'PDFファイルを別名で保存 107 sFilePathOut = Replace(sFilePathIn, ".pdf", "-New.pdf") 108 If objAcroPDDoc.Save(1, sFilePathOut) = False Then 109 MsgBox "PDFファイルへ保存出来ませんでした", _ 110 vbOKOnly + vbCritical, "実行エラー" 111 End If 112 113 '変更しないで閉じます。 114 bRet = objAcroAVDoc.Close(False) 115 116 'Acrobatアプリケーションの終了 117 objAcroApp.Hide 118 objAcroApp.Exit 119 120 'オブジェクトの開放 121 Set objAcroHiliteList = Nothing 122 Set objAcroAVPageView = Nothing 123 Set objAcroPDTextSelect = Nothing 124 Set objAcroRect = Nothing 125 Set objAcroPDPage = Nothing 126 Set objAcroPoint = Nothing 127 Set objAcroPDDoc = Nothing 128 Set objAcroAVDoc = Nothing 129 Set objAFormApp = Nothing 130 Set objAFormFields = Nothing 131 Set objAcroApp = Nothing 132 133 Debug.Print "出力件数 = " & iOutCnt 134 Debug.Print "処理時間 = " & Timer - start 135 End Sub


 Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
 

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

 

実行結果

実行前です。

実行後です。

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

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

 

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:リンクを追加するページ番号。1ページ目は 0 です。
  • Left:座標Leftの値
  • Top:座標Topの値
  • Right:座標Rightの値
  • Bottom:座標Bottomの値

 

2. setAction

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

  1. PDF内のページ移動
    • 例:3ページ目に移動する。
      setAction( "this.pageNum = 2;" );
    • ページ番号の先頭は0です。
    • 次ページへの移動は
      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などの高速な環境をご用意ください。

 

参照

 

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れるとエラーになる場合が有ります。その時はコードの前後に <code> ・・・</code> タグを入れてください。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください