AcroExch.PDAnnot: GetTitle メソッド

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


説明

注釈の作成者を得る。

注)タイトルでは無い。

形式

BSTR GetTitle();

引数

  1. 無し。

戻り値

  • 注釈の作成者。

動作するバージョン

VersionAdobe
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
8NOAcrobat 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キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。
001 Sub AcroExch_PDAnnot_GetTitle() 002 003 Debug.Print "TEST_PDAnnot_GetTitle:" & Now 004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 005 Dim objAcroPDDoc As Acrobat.AcroPDDoc 006 Dim objAcroPDPage As Acrobat.AcroPDPage 007 Dim objAcroPDAnnot As Acrobat.AcroPDAnnot 008 Dim lAnnotsCnt As Long '注釈数 009 Dim lTextCnt As Long '件数 010 Dim lRet As Long '戻り値 011 Dim j As Long '添え字 012 Dim lText As Long 013 Dim lPopUp As Long 014 Dim lLink As Long 015 Const CON_PAGE = 0 'ページ番号 016 017 lTextCnt = 0 018 lText = 0 019 lPopUp = 0 020 lLink = 0 021 'PDFドキュメントを開いて表示する 022 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "") 023 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 024 '2頁目のページ・オブジェクトを得る ★注意① 025 Set objAcroPDPage = _ 026 objAcroPDDoc.AcquirePage(CON_PAGE) 027 Debug.Print "頁=" & CON_PAGE 028 'ページに存在する注釈数を得る ★注意② 029 lAnnotsCnt = objAcroPDPage.GetNumAnnots() - 1 030 Debug.Print "全注釈数=" & (lAnnotsCnt + 1) 031 For j = 0 To lAnnotsCnt 032 Set objAcroPDAnnot = objAcroPDPage.GetAnnot(j) 033 With objAcroPDAnnot 034 Debug.Print "(" & j & ")GetSubtype=" & _ 035 .GetSubtype 036 Debug.Print " GetContents=" & _ 037 .GetContents 038 Debug.Print " GetTitle=" & _ 039 .GetTitle 040 Select Case .GetSubtype 041 Case "Text": lText = lText + 1 042 Case "Popup": lPopUp = lPopUp + 1 043 Case "Link": lLink = lLink + 1 044 Case Else: MsgBox "Puroguram Error(" & _ 045 .GetSubtype & ")" 046 End Select 047 End With 048 lTextCnt = lTextCnt + 1 049 Next j 050 Debug.Print "Text =" & lText & " 件" 051 Debug.Print "Popup =" & lPopUp & " 件" 052 Debug.Print "Link =" & lLink & " 件" 053 Debug.Print "全件数=" & lTextCnt & " 件" 054 055 'PDFファイルを保存しないで閉じる 056 lRet = objAcroAVDoc.Close(1) 057 'オブジェクトを強制解放する 058 Set objAcroAVDoc = Nothing 059 Set objAcroPDAnnot = Nothing 060 Set objAcroPDPage = Nothing 061 Set objAcroPDDoc = Nothing 062 063 End Sub


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

 

実行結果

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等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください