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

＜戻る＞

PDF