AcroExch.Time： Minute プロパティ

説明

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

形式

[get/set] Short

設定又は戻り値

0 から59 の数。
0 は0 分です。
59 は59 分です。 ※60分(=１時間)はありません。

動作するバージョン

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ファイルにあるテキスト注釈の日付は分以下は0 にリセットする。

F8キーでステップ実行しながら動作確認する。
事前に参照設定をする。

001 Sub AcroExch_Time_Minute()
002 
003     Debug.Print "AcroExch_Time_Minute:" & 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                     .Minute = 0     '分
041                     .Second = 0     '秒
042                     .millisecond = 0 'ミリ秒
043                 End With
044                 '注釈の時間を更新
045                 lRet = objAcroPDAnnot.SetDate(objAcroTime)
046                 lTextCnt = lTextCnt + 1
047             End If
048         Next j
049     Next i
050     Debug.Print "更新件数=" & lTextCnt
051      
052     'PDFファイルを保存して閉じる
053     lRet = objAcroAVDoc.Close(0)
054  
055     'Acrobatを閉じる
056     lRet = objAcroApp.Hide
057     lRet = objAcroApp.Exit
058 
059     'オブジェクトを強制解放する
060     Set objAcroTime = Nothing
061     Set objAcroAVDoc = Nothing
062     Set objAcroPDAnnot = Nothing
063     Set objAcroPDPage = Nothing
064     Set objAcroAVPageView = Nothing
065     Set objAcroPDDoc = Nothing
066     Set objAcroApp = Nothing
067 
068 End Sub

　Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
　

実行結果

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

補足

「注意①」のGetNumAnnots メソッドは正常な値を返さない場合があります。

動作確認環境

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

＜戻る＞

PDF