AcroExch.Time： Second プロパティ

説明

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

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

実行結果

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

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

補足

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

動作確認環境

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

＜戻る＞

PDF