AcroExch.PDDoc: GetNumPages メソッド

TOP > AcroExch.PDDoc > GetNumPages      [...]


説明

PDFドキュメントの全ページ数の数値を得る。

形式

long GetNumPages();

戻り値

  • -1の時は取得に失敗。
  • それ以外はPDFドキュメントの全ページ数。

引数

  1. 無し。

動作するバージョン

VersionAdobe
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
8OKAcrobat 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

戻る

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA



SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください