TOP > AcroExch.PDBookmark > GetTitle [...]
説明
ロジック上で扱っている該当する「しおり」の文字列を取得します。
よって事前に検索(GetByTitle)しておく必要があります。
形式
BSTR GetTitle();
引数
- 無し。
戻り値
- 文字列。しおりの検索(GetByTitle)で、検索出来ないと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
説明：現在扱っているしおりの文字列を表示します。
- F8キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
Sub AcroExch_AcroPDBookmark_GetTitle()
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")
'現在のPDBookmarkオブジェクトの
'しおりの文字列を表示します。
Debug.Print "(" & objAcroPDBookMark.GetTitle & ")"
'PDFファイルを保存して閉じます。
'lRet = objAcroAVDoc.Close(0)
'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
補足
- 事前に検索(GetByTitle)しておく必要があります。
- 事前に検索(GetByTitle)しておいた、同じ文字列が表示されます。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞