TOP > AcroExch.Time > Hour [...]
説明
AcroTimeオブジェクトからの時を得るか、又は設定します。
形式
[get/set] Short
設定又は戻り値
- 0 から 23 の数。
0 は0 時です。
23 は23時です。 ※24 時はありません。
動作するバージョン
| 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_Hour()
002
003 Debug.Print "AcroExch_Time_Hour:" & Now
004 Dim objAcroApp As New Acrobat.AcroApp
005 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
006 Dim objAcroAVPageView As Acrobat.AcroAVPageView
007 Dim objAcroPDDoc As Acrobat.AcroPDDoc
008 Dim objAcroPDPage As Acrobat.AcroPDPage
009 Dim objAcroPDAnnot As Acrobat.AcroPDAnnot
010 Dim objAcroTime As New Acrobat.AcroTime
011 Dim objRect As Acrobat.AcroRect
012 Dim lRet As Long '戻り値
013 Dim lPagesCnt As Long 'ページ数
014 Dim lAnnotsCnt As Long '注釈数
015 Dim i As Long '添え字
016 Dim j As Long '添え字
017 Dim lTextCnt As Long '件数
018
019 lTextCnt = 0
020 'Acrobatを起動表示する
021 lRet = objAcroApp.Show '(TEST用)
022 'PDFドキュメントを開いて表示する。
023 lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
024 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
025 Set objAcroAVPageView = objAcroAVDoc.GetAVPageView()
026 'PDFドキュメントのページ数を得る
027 lPagesCnt = objAcroPDDoc.GetNumPages() － 1
028 For i = 0 To lPagesCnt
029 Set objAcroPDPage = objAcroPDDoc.AcquirePage(i)
030 lRet = objAcroAVPageView.Goto(i) '(TEST用)
031 'ページに存在する注釈数を得る ★注意①
032 lAnnotsCnt = objAcroPDPage.GetNumAnnots() － 1
033 For j = 0 To lAnnotsCnt
034 Set objAcroPDAnnot = objAcroPDPage.GetAnnot(j)
035 'Text注釈か？
036 If objAcroPDAnnot.GetSubtype = "Text" Then
037 Debug.Print "Text=" & objAcroPDAnnot.GetContents
038 '年月日時分秒ミリ秒の更新
039 With objAcroTime
040 .Year = CInt(Year(Now))
041 .Month = CInt(Month(Now))
042 .Date = CInt(Day(Now))
043 .Hour = 0
044 .Second = 0
045 .Minute = 0
046 .millisecond = 0
047 End With
048 lRet = objAcroPDAnnot.SetDate(objAcroTime)
049 lTextCnt = lTextCnt + 1
050 End If
051 Next j
052 Next i
053 Debug.Print "更新件数=" & lTextCnt
054
055 'PDFファイルを保存して閉じる
056 lRet = objAcroAVDoc.Close(0)
057
058 'Acrobatを閉じる
059 lRet = objAcroApp.Hide
060 lRet = objAcroApp.Exit
061
062 'オブジェクトを強制解放する
063 Set objAcroTime = Nothing
064 Set objAcroAVDoc = Nothing
065 Set objAcroPDAnnot = Nothing
066 Set objAcroPDPage = Nothing
067 Set objAcroAVPageView = Nothing
068 Set objAcroPDDoc = Nothing
069 Set objAcroApp = Nothing
070
071 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
実行結果
※２番目のテキスト内容が変です。
TEST_Time_Hour:2008/08/02 20:52:40
Text=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。(1)
Text=1/2 これはTest01.PDFのテスト用の１ページ目のテキスト注釈です。(1)
Text=テスト用の注釈です。2ページ目です。
更新件数=3
補足
- 「注意①」のGetNumAnnots メソッドは正常な値を返さない場合があります。
- 実行結果から、２番目のテキスト内容が変です。バグ？
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞