AcroExch.AVDoc: SetTextSelection メソッド

TOP > AcroExch.AVDoc > SetTextSelection      [...]


説明

PDFドキュメントの指定範囲(四角形)をテキスト選択します。

画面に見える位置とは限りません。

形式

VARIANT_BOOL SetTextSelection(LPDISPATCH iAcroPDTextSelect);

引数

  1. 第1引数(LPDISPATCH iAcroPDTextSelect) :
    AcroRectオブジェクト(Top,bottom,Right,Left)

戻り値

  • -1 : 成功
  • 0 : 失敗。PDFドキュメントがOpenされてないか、PDTextSelectオブジェクトがNullの時

動作するバージョン

VersionAdobe
Acrobat
備考
4-Acrobat 4.0    ※Windows 98SE + Excel 2000
5
-
Acrobat 5.0.5
6
-
Acrobat 6.0.3 Pro
7-Acrobat 7.0.9 Pro
Acrobat 7.1.4 Pro
8OKAcrobat 8.1.2 Pro
9-Acrobat 9.3.2 Extended
10-Acrobat X (10.1.8) Extended
11-Acrobat XI (11.0.04) Extended
  • OK = 動作する。
  • NO = 動作しない。 戻り値が0を返す。
  • - = 未確認。

サンプル:ExcelのVBA

説明:PDFドキュメントの指定範囲(四角形)をテキスト選択します。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。
001 Sub AcroExch_AVDoc_SetTextSelection() 002 003 Dim objAcroApp As New Acrobat.AcroApp 004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 005 Dim objAcroPDDoc As Acrobat.AcroPDDoc 006 Dim objAcroPageView As Acrobat.AcroAVPageView 007 Dim objAcroRect As New Acrobat.AcroRect 008 Dim objPDTextSelect As Acrobat.AcroPDTextSelect 009 Dim lRet As Long '戻り値 010 Const lPageNumber As Long = 2 'ページ番号 011 012 'Acrobatアプリケーションを起動する 013 lRet = objAcroApp.Show 014 'PDFファイルを開いて表示する 015 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "") 016 'PDDocオブジェクトを取得する 017 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 018 'AVPageViewオブジェクトを取得する 019 Set objAcroPageView = objAcroAVDoc.GetAVPageView() 020 '指定ページ(4頁)に移動します。※0が開始頁 021 lRet = objAcroPageView.Goto(lPageNumber) 022 023 '選択を示す長方形を作成する。頁左下部を起点。 024 objAcroRect.Top = 400 '上 025 objAcroRect.bottom = 100 '下 026 objAcroRect.Right = 300 '右 027 objAcroRect.Left = 100 '左 028 029 '該当ページのobjAcroRectで指定された範囲の 030 'PDTextSelectオブジェクトを取得する 031 Set objPDTextSelect = _ 032 objAcroPDDoc.CreateTextSelect(lPageNumber, objAcroRect) 033 If objPDTextSelect Is Nothing Then 034 MsgBox "テキストが選択出来ませんでした", _ 035 vbOKOnly + vbCritical, "実行エラー" 036 GoTo Skip_Test_AVDoc_SetTextSelection 037 End If 038 'テキストを選択状態にする 039 lRet = objAcroAVDoc.SetTextSelection(objPDTextSelect) 040 'テキスト選択状態を見やすい位置表示にする 041 lRet = objAcroAVDoc.ShowTextSelect() 042 043 Skip_Test_AVDoc_SetTextSelection: 044 045 'PDFファイルを保存しないで閉じます 046 lRet = objAcroAVDoc.Close(1) 047 048 'Acrobatアプリケーションを終了する 049 lRet = objAcroApp.Hide 050 lRet = objAcroApp.Exit 051 052 'オブジェクトを強制開放する 053 Set objPDTextSelect = Nothing 054 Set objAcroPageView = Nothing 055 Set objAcroRect = Nothing 056 Set objAcroPDDoc = Nothing 057 Set objAcroAVDoc = Nothing 058 Set objAcroApp = Nothing 059 060 End Sub


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

 

 

補足

  • 事前にobjPDTextSelectオブジェクトがNullかのチェックが必要です。
  • テキスト選択状態にするだけであって、PDFドキュメントの表示位置によっては、そのテキスト選択状態が見えるとは限りません。見えるようにするには、ShowTextSelectメソッドを次に実行する必要があります。

動作確認環境

  • WindowsXP Pro(+ SP3) +
    Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate

戻る


キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく

  2. [ CTRL ] + [ - ]  :  文字を小さく
Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size

  2. [ CTRL ] + [ - ]  :  Down the font size

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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