TOP > AcroExch.PDDoc > *
説明
PDFドキュメントの全ページ数の数値を取得します。
形式
long GetNumPages();
戻り値
- -1：取得に失敗。
- それ以外：PDFドキュメントの全ページ数。
引数
- 無し。
動作するバージョン
| 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
補足
- 特に無し。
Adobe Web 解説
OLE Automation / AcroExch.PDDoc / GetNumPages (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞