TOP > AcroExch.PDPage > GetNumber      [...]

---

説明

現在のページのページ番号を得ます。

ドキュメントにおける最初のページはゼロページです。

形式

long GetNumber();

引数

1. 無し。

戻り値

• 0以上の数値。

動作するバージョン

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	NO	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

説明：注釈が無いページ番号を探す。

★注意：以下のサンプルは正しい結果を得るとは限りません。
GetNumAnnotsメソッドが正しく動作している様に見えないからです。

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

　

　

001 Sub AcroExch_PDPage_GetNumber() 002 003 Debug.Print "Test_AcroPDPage_GetNumber" 004 Dim objAcroApp As New Acrobat.AcroApp 005 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 006 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 007 Dim objAcroPDPage As Acrobat.AcroPDPage 008 Dim objAcroPDAnnot As Acrobat.AcroPDAnnot 009 Dim lRet As Long '戻り値 010 Dim i As Long '添え字 011 Dim lPage As Long 'ページ数 012 Dim lPageSkipCnt As Long 'ページ数合計 013 Dim lAnnots As Long '注釈数 014 015 Const FILEPATH As String = "E:\Test01.pdf" 016 017 'Acrobatを起動表示する 018 lRet = objAcroApp.Show '(TEST用) 019 'PDFドキュメントを開く 020 lRet = objAcroPDDoc.Open(FILEPATH) 021 '画面にPDFを表示する。 022 lRet = objAcroAVDoc.Open(FILEPATH, "") '(TEST用) 023 024 lPageSkipCnt = 0 025 lPage = objAcroPDDoc.GetNumPages - 1 026 Debug.Print "全頁数=" & lPage + 1 027 028 For i = 0 To lPage 029 Set objAcroPDPage = objAcroPDDoc.AcquirePage(i) 030 'ページ内にある注釈要素の数を得ます。★バグ有り? 031 lAnnots = objAcroPDPage.GetNumAnnots - 1 032 If lAnnots < 0 Then 033 lPageSkipCnt = lPageSkipCnt + 1 034 Debug.Print "注釈オブジェクトが無い頁=" _ 035 & objAcroPDPage.GetNumber 036 End If 037 Next i 038 039 Debug.Print "注釈オブジェクトが無い合計ページ数=" _ 040 & lPageSkipCnt 041 'PDFファイルを閉じる 042 lRet = objAcroPDDoc.Close 043 044 'Acrobatを閉じる 045 lRet = objAcroApp.Hide '(TEST用) 046 lRet = objAcroApp.Exit '(TEST用) 047 048 'オブジェクトを強制解放する 049 Set objAcroAVDoc = Nothing '(TEST用) 050 Set objAcroPDAnnot = Nothing 051 Set objAcroPDPage = Nothing 052 Set objAcroPDDoc = Nothing 053 Set objAcroApp = Nothing 054 055 End Sub

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

実行結果

Test_AcroPDPage_GetNumber 全頁数=34 注釈オブジェクトが無い頁=4 注釈オブジェクトが無い頁=5 注釈オブジェクトが無い頁=8 注釈オブジェクトが無い頁=11 注釈オブジェクトが無い頁=12 注釈オブジェクトが無い頁=14 注釈オブジェクトが無い頁=15 注釈オブジェクトが無い頁=17 注釈オブジェクトが無い頁=18 注釈オブジェクトが無い頁=19 注釈オブジェクトが無い頁=20 注釈オブジェクトが無い頁=21 注釈オブジェクトが無い頁=22 注釈オブジェクトが無い頁=23 注釈オブジェクトが無い頁=24 注釈オブジェクトが無い頁=26 注釈オブジェクトが無い頁=27 注釈オブジェクトが無い頁=28 注釈オブジェクトが無い頁=29 注釈オブジェクトが無い頁=30 注釈オブジェクトが無い合計ページ数=20

※上記の結果が正しいという確認が現段階(2008/7/22)では出来ません。

補足

• F8キーでステップ実行し、各メソッドによりどのような動きをするかよく観察すること。
• （TEST用）はテスト用のロジックで実用時は不要です。

動作確認環境

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

＜ 戻る ＞