AcroExch.Time： Date プロパティ

説明

AcroTimeオブジェクトからの日を得るか、又は設定します。

形式

[get/set] Short

設定又は戻り値

1 から 31 の数。
1 は１日です。 31 は３１日です。

動作するバージョン

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	OK	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_Time_Date()
002 
003     Debug.Print "AcroExch_Time_Date:" & Now
004     Dim objAcroApp          As New Acrobat.AcroApp
005     Dim objAcroAVDoc        As New Acrobat.AcroAVDoc
006     Dim objAcroPDDoc        As Acrobat.AcroPDDoc
007     Dim objAcroPDPage       As Acrobat.AcroPDPage
008     Dim objAcroPDAnnot      As Acrobat.AcroPDAnnot
009     Dim objAcroTime         As Acrobat.AcroTime
010     Dim objRect             As Acrobat.AcroRect
011     Dim lRet                As Long     '戻り値
012     Dim lPagesCnt           As Long     'ページ数
013     Dim lAnnotsCnt          As Long     '注釈数
014     Dim i                   As Long     '添え字
015     Dim j                   As Long     '添え字
016     Dim lTextCnt            As Long     '件数
017 
018     lTextCnt = 0
019     'Acrobatを起動表示する
020     lRet = objAcroApp.Show
021     'PDFドキュメントを開いて表示する。
022     lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
023     Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
024     'PDFドキュメントのページ数を得る
025     lPagesCnt = objAcroPDDoc.GetNumPages() - 1
026     For i = 0 To lPagesCnt
027         Set objAcroPDPage = objAcroPDDoc.AcquirePage(i)
028         'ページに存在する注釈数を得る ★注意①
029         lAnnotsCnt = objAcroPDPage.GetNumAnnots() - 1
030         For j = 0 To lAnnotsCnt
031             Set objAcroPDAnnot = objAcroPDPage.GetAnnot(j)
032             'Text注釈か？
033             If objAcroPDAnnot.GetSubtype = "Text" Then
034                 'Text注釈の日時を取得
035                 Debug.Print "Text=" & objAcroPDAnnot.GetContents
036                 Set objAcroTime = objAcroPDAnnot.GetDate
037                 Debug.Print "年月日=" & objAcroTime.Year & _
038                             "/" & objAcroTime.Month & _
039                             "/" & objAcroTime.Date
040                 lTextCnt = lTextCnt + 1
041             End If
042         Next j
043     Next i
044     Debug.Print "件数=" & lTextCnt
045      
046     'PDFファイルを保存しないで閉じる
047     lRet = objAcroAVDoc.Close(1)
048  
049     'Acrobatを閉じる
050     lRet = objAcroApp.Hide
051     lRet = objAcroApp.Exit
052 
053     'オブジェクトを強制解放する
054     Set objAcroTime = Nothing
055     Set objAcroAVDoc = Nothing
056     Set objAcroPDAnnot = Nothing
057     Set objAcroPDPage = Nothing
058     Set objAcroPDDoc = Nothing
059     Set objAcroApp = Nothing
060 
061 End Sub
062

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

実行結果

※２番目のテキスト内容が変です。

TEST_Time_Date:2008/08/02 19:00:59
Text=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。(1)
年月日=2008/8/2
Text=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。(1)
年月日=2008/8/2
Text=テスト用の注釈です。2ページ目です。
年月日=2008/7/20
件数=3

補足

「注意①」のGetNumAnnots メソッドは正常な値を返さない場合があります。
実行結果から、２番目のテキスト内容が変です。バグ？

動作確認環境

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

＜戻る＞

PDF