TOP > AcroExch.PDBookmark > GetTitle      [...]

---

説明

ロジック上で扱っている該当する「しおり」の文字列を取得します。

よって事前に検索(GetByTitle)しておく必要があります。

形式

BSTR GetTitle();

引数

1. 無し。

戻り値

• 文字列。しおりの検索(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キーでステップ実行しながら動作確認する。
• 事前に参照設定をする。

001 Sub AcroExch_AcroPDBookmark_GetTitle() 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 '現在のPDBookmarkオブジェクトの 020 'しおりの文字列を表示します。 021 Debug.Print "(" & objAcroPDBookMark.GetTitle & ")" 022 023 'PDFファイルを保存して閉じます。 024 'lRet = objAcroAVDoc.Close(0) 025 'PDFファイルを保存しないで閉じます。 026 lRet = objAcroAVDoc.Close(1) 027 028 'Acrobatアプリケーションを終了する。 029 lRet = objAcroApp.Hide 030 lRet = objAcroApp.Exit 031 032 'オブジェクトを強制開放する 033 Set objAcroPDBookMark = Nothing 034 Set objAcroPDDoc = Nothing 035 Set objAcroAVDoc = Nothing 036 Set objAcroApp = Nothing 037 038 End Sub

　Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
　

　

補足

• 事前に検索(GetByTitle)しておく必要があります。
• 事前に検索(GetByTitle)しておいた、同じ文字列が表示されます。

動作確認環境

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

＜ 戻る ＞