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