TOP > AcroExch.PDDoc > GetNumPages [...]
説明
PDFドキュメントの全ページ数の数値を得る。
形式
long GetNumPages();
戻り値
- -1の時は取得に失敗。
- それ以外はPDFドキュメントの全ページ数。
引数
- 無し。
動作するバージョン
| 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 Option Explicit
002
003 Sub AcroExch_PDDoc_GetNumPages()
004
005 Dim objAcroApp As New Acrobat.AcroApp
006 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
007 Dim objAcroPDDoc As Acrobat.AcroPDDoc
008 Dim lPageCount As Long
009 Dim lRet As Long
010
011 'アクロバットを起動
012 lRet = objAcroApp.Show
013 'PDFファイルを開いて表示する
014 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
015 'PDDocを取得する
016 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
017 'ページ数を取得する
018 lPageCount = objAcroPDDoc.GetNumPages()
019 Debug.Print "PageCount=" & lPageCount
020 MsgBox "PDFファイルの全ぺーじ数=" & lPageCount
021
022 '現在表示しているPDFファイルを変更無しで閉じる
023 lRet = objAcroAVDoc.Close(1)
024 'Acrobatアプリケーションを終了する。
025 lRet = objAcroApp.Hide
026 lRet = objAcroApp.Exit
027
028 'オブジェクトを強制開放する
029 Set objAcroPDDoc = Nothing
030 Set objAcroAVDoc = Nothing
031 Set objAcroApp = Nothing
032
033 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- 特に無し。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞