TOP > AcroExch.PDBookmark > *
説明
該当する文字列を持った「しおり」の存在をチェックします。検索出来れば同時にAcroAVDocオブジェクトと連携します。
形式
VARIANT_BOOL GetByTitle(LPDISPATCH iAcroPDDoc,
BSTR bookmarkTitle);
引数
- 第１引数(LPDISPATCH iAcroPDDoc) ：
検索したいPDFドキュメントに相当するAcroPDDocオブジェクト。 - 第２引数(BSTR bookmarkTitle) ：
検索したい「しおり」の文字列。
戻り値
- True(-1) ： 成功。検索出来た。
- False(0) ： 失敗。該当する「しおり」は存在しない。
動作するバージョン
| 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
該当する文字列を持った「しおり」が存在するかチェックします。
- 事前に参照設定をします。
- F8キーでステップ実行しながら動作確認します。
001 Sub AcroExch_AcroPDBookmark_GetByTitle()
002
003 Dim objAcroApp As New Acrobat.AcroApp
004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
005 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
006 Dim objAcroPDBookMark As Acrobat.AcroPDBookmark
007 Dim lRet As Long
008
009 'PDFファイルを開いて表示する
010 lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
011 'PDDocオブジェクトを取得する
012 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
013 'objAcroPDBookMarkオブジェクトの作成（インスタンス化）
014 Set objAcroPDBookMark = _
015 CreateObject("AcroExch.PDBookmark")
016 '該当する「しおり」を検索する
017 lRet = objAcroPDBookMark.GetByTitle(objAcroPDDoc, _
018 "HogeHoge")
019 If lRet = True Then
020 Debug.Print "しおりが見つかった。"
021 Else
022 Debug.Print "しおりが見つからない。"
023 End If
024
025 'PDFファイルを保存しないで閉じます。
026 lRet = objAcroAVDoc.Close(1)
027
028 'Acrobatアプリケーションを終了する。
029 lRet = objAcroApp.Hide
030 lRet = objAcroApp.Exit
031
032
033 'オブジェクトを強制開放する
034 Set objAcroPDBookMark = Nothing
035 Set objAcroPDDoc = Nothing
036 Set objAcroAVDoc = Nothing
037 Set objAcroApp = Nothing
038
039 End Sub
補足
- 上記サンプルがAcroPDBookmark オブジェクトを使用可能にする基本形のコーディングです。
Adobe Web 解説
OLE Automation / AcroExch.PDBookmark / GetByTitle (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞