AcroExch.PDTextSelect: Destroy メソッド

TOP > AcroExch.PDTextSelect > Destroy      [...]


説明

テキスト選択状態を解除する。

 

形式

VARIANT_BOOL Destroy();

 

引数

  1. 無し。

 

戻り値

  • 常に-1が返される。

 

動作するバージョン

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ファイルの2ページ目の指定テキストを一旦選択状態にする。

そして直ぐに解除する。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。

 

Private Sub AcroExc_PDPage_Destroy()

    Debug.Print "AcroExc_PDPage_Destroy:" & Now
    Dim objAcroApp          As New Acrobat.AcroApp
    Dim objAcroHiliteList   As New Acrobat.AcroHiliteList
    Dim objAcroAVDoc        As New Acrobat.AcroAVDoc
    Dim objAcroPDPage       As Acrobat.AcroPDPage
    Dim objAcroPDTextSelect As Acrobat.AcroPDTextSelect
    Dim objAcroAVPageView   As Acrobat.AcroAVPageView
    Dim lRet                As Long
    
    'PDFドキュメントを開いて表示する。
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
    Set objAcroAVPageView = objAcroAVDoc.GetAVPageView()
    '2ページ目に移動表示する。
    lRet = objAcroAVPageView.Goto(1)
    'ハイライトリストを作る。※「テキストのハイライト」では無い
    '※10文字目から、50文字のハイライトリストを作る。
    lRet = objAcroHiliteList.Add(10, 50)
    
    '検索して見つかったページのAVPageViewオブジェクトを作成
    Set objAcroAVPageView = objAcroAVDoc.GetAVPageView()
    '検索して見つかったページのPDPageオブジェクトを作成
    Set objAcroPDPage = objAcroAVPageView.GetPage()
    '1文字単位で文字をHiliteListの範囲に従って
    'PDTextSelectオブジェクトを作成する。
    Set objAcroPDTextSelect = _
        objAcroPDPage.CreatePageHilite(objAcroHiliteList)
    'AcroPDTextSelectオブジェクトに従って、
    '該当PDFページを選択状態にする。
    lRet = objAcroAVDoc.SetTextSelection(objAcroPDTextSelect)
    'テキスト選択状態を解除します。
    lRet = objAcroPDTextSelect.Destroy()
    
    'PDFファイルを保存しないで閉じる
    lRet = objAcroAVDoc.Close(1)

    'Acrobatを閉じる
    lRet = objAcroApp.Hide      '(TEST用)
    lRet = objAcroApp.Exit      '(TEST用)

    'オブジェクトを強制解放する
    Set objAcroHiliteList = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroPDTextSelect = Nothing
    Set objAcroAVPageView = Nothing
    Set objAcroAVDoc = Nothing
    Set objAcroApp = Nothing

End Sub

 

実行結果

  

TEST_PDPage_Destroy:2008/08/02 10:25:04
R AcrobatR
Rect.Top=735
Rect.bottom=724
Rect.Left=61
Rect.Right=100

※下記は実行途中のPDFビュアーの画面の一部です。

   透明テキストがページ全体選択状態になっています。

PDTextSelect 実行中画面

 

補足

 

動作確認環境

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

 

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

コメントをする時は最低でも以下をお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン