TOP > AcroExch.PDAnnot > GetTitle [...]
説明
注釈の作成者を得る。
注）タイトルでは無い。
形式
BSTR GetTitle();
引数
- 無し。
戻り値
- 注釈の作成者。
動作するバージョン
| 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キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
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のテスト用の１ページ目のテキスト注釈です。
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 メソッドは注釈の作成者を得るのであって、タイトルでは無い。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞