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

説明

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

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

形式

BSTR GetTitle();

引数

1. 無し。

戻り値

• 文字列。しおりの検索(GetByTitle)で、検索出来ないとNULL（""）文字が返されます。

動作するバージョン

• 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

＜ 戻る ＞