PDAnnot：GetSubtype メソッド

当サイトは　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：GetSubtype メソッド

＜説明＞
注釈のタイプを得ます。タイプは Text , Popup , Link の３種類です。

＜形式＞
BSTR GetSubtype();

＜引数＞
・無し。

＜戻り値＞
・Text , Popup , Link の文字列のどれかを返します。

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

Private Sub TEST_PDAnnot_GetSubtype()
    Debug.Print "TEST_PDAnnot_GetSubtype:" & 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
            Select Case .GetSubtype
            Case "Text": lText = lText + 1
            Case "Popup": lPopUp = lPopUp + 1
            Case "Link": lLink = lLink + 1
            Case Else: MsgBox "Program 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_GetRect:2008/08/12 12:51:16
頁＝0
全注釈数=4
(0)GetSubtype=Text
GetContents=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
(1)GetSubtype=Popup
GetContents=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
(2)GetSubtype=Text
GetContents=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
(3)GetSubtype=Popup
GetContents=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。
Text =2 件
Popup =2 件
Link =0 件
全件数=4 件

※上記PDFページは以下の様になっている。２番目の注釈が表示されてない。
PDAnnot：GetSubtype メソッド(1)

＜実行結果（２）＞　頁＝３の時、異常処理
TEST_PDAnnot_GetRect:2008/08/12 12:39:57
頁＝2
全注釈数=41
(0)GetSubtype=Link
GetContents=
(1)GetSubtype=Link
GetContents=
(2)GetSubtype=Link
GetContents=
(3)GetSubtype=Link
GetContents=
・・・・・・・＜省略＞・・・・・・・
(39)GetSubtype=Link
GetContents=
(40)GetSubtype=Link
GetContents=
Text =0 件
Popup =0 件
Link =41 件
全件数=41 件

※上記PDFページは以下の様になっている。注釈が１つ表示されてない。
PDAnnot：GetSubtype メソッド(2)

＜補足＞
・「★注意①」と「★注意②」の部分が動作不良を起こしている模様です。正確に処理できません。

＜動作確認環境＞
・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/228

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

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

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

激安！安心！印刷

このサイト内を検索

分類

LINKS