TOP > 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
＜ 戻る ＞