AcroExch.PDAnnot： GetTitle メソッド

TOP > AcroExch.PDAnnot > *

説明

注釈の作成者を返します。タイトルではないです。

形式

BSTR GetTitle();

引数

無し。

戻り値

注釈の作成者。

動作するバージョン

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キーでステップ実行しながら動作確認します。

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

実行結果

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ページは以下の様になっている。

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

補足

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

Adobe Web 解説

OLE Automation / AcroExch.PDAnnot / GetTitle (公式サイト・英語)

動作確認環境

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

＜戻る＞

PDF