AcroExch.PDAnnot: GetTitle メソッド

TOP > AcroExch.PDAnnot > GetTitle      [...]


説明

注釈の作成者を得る。

注)タイトルでは無い。

 

形式

BSTR GetTitle();

 

引数

  1. 無し。

 

戻り値

  • 注釈の作成者。

 

動作するバージョン

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
NO
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

 

説明:PDFファイルの指定ページの注釈の作成者を得ます。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。

 

Sub AcroExch_PDAnnot_GetTitle()

    Debug.Print "TEST_PDAnnot_GetTitle:" & Now
    Dim objAcroAVDoc        As New Acrobat.AcroAVDoc
    Dim objAcroPDDoc        As Acrobat.AcroPDDoc
    Dim objAcroPDPage       As Acrobat.AcroPDPage
    Dim objAcroPDAnnot      As Acrobat.AcroPDAnnot
    Dim lAnnotsCnt          As Long     '注釈数
    Dim lTextCnt             As Long     '件数
    Dim lRet                   As Long     '戻り値
    Dim j                       As Long     '添え字
    Dim lText                 As Long
    Dim lPopUp              As Long
    Dim lLink                 As Long
    Const CON_PAGE = 0              'ページ番号
    
    lTextCnt = 0
    lText = 0
    lPopUp = 0
    lLink = 0
    'PDFドキュメントを開いて表示する
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
    Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
    '2頁目のページ・オブジェクトを得る ★注意①
    Set objAcroPDPage = _
        objAcroPDDoc.AcquirePage(CON_PAGE)
    Debug.Print "頁=" & CON_PAGE
    'ページに存在する注釈数を得る ★注意②
    lAnnotsCnt = objAcroPDPage.GetNumAnnots() - 1
    Debug.Print "全注釈数=" & (lAnnotsCnt + 1)
    For j = 0 To lAnnotsCnt
        Set objAcroPDAnnot = objAcroPDPage.GetAnnot(j)
        With objAcroPDAnnot
            Debug.Print "(" & j & ")GetSubtype=" & _
                        .GetSubtype
            Debug.Print "   GetContents=" & _
                        .GetContents
            Debug.Print "   GetTitle=" & _
                        .GetTitle
            Select Case .GetSubtype
            Case "Text": lText = lText + 1
            Case "Popup": lPopUp = lPopUp + 1
            Case "Link": lLink = lLink + 1
            Case Else: MsgBox "Puroguram Error(" & _
                        .GetSubtype & ")"
            End Select
        End With
        lTextCnt = lTextCnt + 1
    Next j
    Debug.Print "Text  =" & lText & " 件"
    Debug.Print "Popup =" & lPopUp & " 件"
    Debug.Print "Link  =" & lLink & " 件"
    Debug.Print "全件数=" & lTextCnt & " 件"
    
    'PDFファイルを保存しないで閉じる
    lRet = objAcroAVDoc.Close(1)
    'オブジェクトを強制解放する
    Set objAcroAVDoc = Nothing
    Set objAcroPDAnnot = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroPDDoc = Nothing

End Sub

  

実行結果

TEST_PDAnnot_GetSubtype:2008/08/12 15:38:42
頁=0
全注釈数=4
(0)GetSubtype=Text
GetContents=1/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。
GetTitle=norito 1
(1)GetSubtype=Popup
GetContents=1/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。
GetTitle=norito 1
(2)GetSubtype=Text
GetContents=2/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。
GetTitle=norito 2
(3)GetSubtype=Popup
GetContents=2/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。
GetTitle=norito 2
Text =2 件
Popup =2 件
Link =0 件
全件数=4 件

※上記PDFページは以下の様になっている。

PDAnnot:GetTitle メソッド(1)

 

※1番目の注釈のプロパティ画面内容は以下の様になっている。

PDAnnot:GetTitle メソッド(2)

 

補足

  • 「★注意①」と「★注意②」の部分が動作不良を起こす事があります。注意して下さい。
  • 上記サンプルの場合は正常処理です。
  • GetTitle メソッドは注釈の作成者を得るのであって、タイトルでは無い。

 

動作確認環境

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

 

戻る

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れるとエラーになる場合が有ります。その時はコードの前後に <code> ・・・</code> タグを入れてください。

This site uses Akismet to reduce spam. Learn how your comment data is processed.