AcroExch.Time: Hour プロパティ

TOP > AcroExch.Time > Hour      [...]


説明

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

 

形式

[get/set] Short

 

設定又は戻り値

  • 0 から 23 の数。
    0 は0 時です。
    23 は23時です。 ※24 時はありません。

 

動作するバージョン

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ファイルにあるテキスト注釈の登録又は更新日付を現在にし、時間は0にリセットする。

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

実行結果

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

TEST_Time_Hour:2008/08/02 20:52:40
Text=1/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。(1)
Text=1/2 これはTest01.PDFのテスト用の1ページ目のテキスト注釈です。(1)
Text=テスト用の注釈です。2ページ目です。
更新件数=3

補足

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

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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