TOP > AcroExch.AVDoc > SetTextSelection [...]
説明
PDFドキュメントの指定範囲（四角形）をテキスト選択します。
画面に見える位置とは限りません。
形式
VARIANT_BOOL SetTextSelection(LPDISPATCH iAcroPDTextSelect);
引数
- 第１引数(LPDISPATCH iAcroPDTextSelect) ：
AcroRectオブジェクト（Top,bottom,Right,Left）
戻り値
- －１ ： 成功
- 0 ： 失敗。PDFドキュメントがOpenされてないか、PDTextSelectオブジェクトがNullの時
動作するバージョン
| Version | Adobe 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 |
| 8 | OK | Acrobat 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頁)に移動します。※０が開始頁
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
＜ 戻る ＞
 ブラウザ画面の文字サイズを変更するショートカットキー
|