AcroExch.PDAnnot: GetDate メソッド

TOP > AcroExch.PDAnnot > GetDate      [...]


説明

注釈の日付(年月日時分秒+ミリ秒)を得ます。

形式

LPDISPATCH GetDate();

引数

  1. 無し。

戻り値

  • AcroExch.Timeオブジェクトで日付(年月日時分秒+ミリ秒)が返される。

動作するバージョン

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
8OKAcrobat 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_GetDate() 002 003 Debug.Print "TEST_PDAnnot_GetDate:" & 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 objAcroTime As Acrobat.AcroTime 009 Dim lRet As Long '戻り値 010 Dim lAnnotsCnt As Long '注釈数 011 Dim j As Long '添え字 012 Dim lTextCnt As Long '件数 013 014 lTextCnt = 0 015 'PDFドキュメントを開いて表示する 016 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "") 017 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 018 '表紙のページ・オブジェクトを得る 019 Set objAcroPDPage = objAcroPDDoc.AcquirePage(0) 020 'ページに存在する注釈数を得る ★注意① 021 lAnnotsCnt = objAcroPDPage.GetNumAnnots() - 1 022 Debug.Print "全注釈数=" & (lAnnotsCnt + 1) 023 For j = 0 To lAnnotsCnt 024 Set objAcroPDAnnot = objAcroPDPage.GetAnnot(j) 025 If objAcroPDAnnot.GetSubtype = "Text" Then 026 Set objAcroTime = objAcroPDAnnot.GetDate 027 With objAcroTime 028 Debug.Print "日付(" & j & ")=" & _ 029 .Year & "/"; _ 030 .Month & "/" & _ 031 .Date & " " & _ 032 .Hour & ":" & _ 033 .Minute & ":" & _ 034 .Second & ":" & _ 035 .millisecond 036 End With 037 lTextCnt = lTextCnt + 1 038 End If 039 Next j 040 Debug.Print "件数=" & lTextCnt 041 042 'PDFファイルを保存しないで閉じる 043 lRet = objAcroAVDoc.Close(1) 044 'オブジェクトを強制解放する 045 Set objAcroAVDoc = Nothing 046 Set objAcroPDAnnot = Nothing 047 Set objAcroPDPage = Nothing 048 Set objAcroPDDoc = Nothing 049 050 End Sub


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

 

実行結果


TEST_PDAnnot_GetDate:2008/08/06 8:53:09
全注釈数=4
日付(0)=2008/8/6 8:52:43:0
日付(2)=2008/8/4 16:29:54:0
件数=2

※下記はPDFビュアーの表紙ページの一部です。

PDF表紙ページの注釈

補足

  • 「★注意①」の部分はよく動作不良を起こしますが。
    今回は他のPDFを閉じたら正常に処理をしました。
    他のPDFを表示していると「★注意①」の部分は動作不良を起こす可能性が高いみたいです。

動作確認環境

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

戻る

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA


★ 文章での質問は難しいですよネ。でも、早く解決して、家に帰りたい。


SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



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

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