PDAnnot：GetTitle メソッド

当サイトは　2009/12/21 をもって以下に移行作業を始めました。(+ﾘﾆｭｰｱﾙ)
http://pdf-file.nnn2.com/
ページ数が大量なので移行完了まで日数が掛かります。なお、当サイトの更新は今後有りません。
★★　お手数ですがコメントは上記移行先URLの方にお願いいたします。★★
★★　移行作業完了後にココのサイトを閉鎖するかもしれないからです。★★

★サイトマップ★　 App 一覧　 AVDoc 一覧　 AVPageView 一覧　 PDDoc 一覧　 PDPage 一覧　 PDTextSelect 一覧　 PDAnnot 一覧　 PDBookmark 一覧　 Time 一覧　 Rect 一覧　 Point 一覧　 HiliteList 一覧　 AxAcroPDFLib.AxAcroPDF 一覧　 JavaScript(JavaScriptAPI) 一覧　 IAC.BASの説明一覧　サンプル一覧

PDAnnot：GetTitle メソッド

＜説明＞
注釈の作成者を得る。注）タイトルでは無い。

＜形式＞
BSTR GetTitle();

＜引数＞
・無し。

＜戻り値＞
・注釈の作成者。

＜サンプル：ExcelのVBA＞
説明：PDFファイルの指定ページの注釈の作成者を得ます。
※F8キーでステップ実行しながら動作確認する。
※参照設定をする。

Private Sub TEST_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のテスト用の１ページ目のテキスト注釈です。
GetTitle=norito 1
(1)GetSubtype=Popup
GetContents=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
GetTitle=norito 1
(2)GetSubtype=Text
GetContents=2/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
GetTitle=norito 2
(3)GetSubtype=Popup
GetContents=2/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
GetTitle=norito 2
Text =2 件
Popup =2 件
Link =0 件
全件数=4 件

※上記PDFページは以下の様になっている。
PDAnnot：GetTitle メソッド(1)

※１番目の注釈のプロパティ画面内容は以下の様になっている。
PDAnnot：GetTitle メソッド(2)

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

＜動作確認環境＞
・WindowsXP Pro + SP3 + フルWindowsUpdate
・Acrobat 8.1.2 Pro + Office 2003 + フルMicrosoftUpdate

2008.08.12 Tuesday | posted by NORITO

PDAnnotオブジェクト | comments(0) | trackbacks(0)

この記事に対するコメント

コメントする

この記事のトラックバックURL

http://pdf-file.jugem.jp/trackback/229

この記事に対するトラックバック

注意：当サイトの情報に関して当サイト管理者は一切の責任と義務を負いません。当サイトの情報によって生ずるいかなる障害等を当サイトは保証しません。その前提でご覧下さい。

印刷ネット通販グラフィック

激安！安心！印刷

このサイト内を検索

分類

LINKS