AcroExch.Time: Date プロパティ

TOP > AcroExch.Time > Date      [...]


説明

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

 

形式

[get/set] Short

 

設定又は戻り値

  1. 1 から 31 の数。
    1 は1日です。 31 は31日です。

 

動作するバージョン

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_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編)
 

実行結果

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

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

補足

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

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

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

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れるとエラーになる場合が有ります。その時はコードの前後に <code> ・・・</code> タグを入れてください。

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