AcroExch.AVPageView: GetPageNum メソッド

TOP > AcroExch.AVPageView > GetPageNum      [...]


説明

現在表示している頁番号を取得する。

最初の頁は0で返される。

 

形式

long GetPageNum();

 

戻り値

  • 戻り値はページ番号。

 

引数

  1. 無し。

 

動作するバージョン

Version Adobe
Acrobat
備考
4
-
Acrobat 4.0    ※Windows 98SE + Excel 2000
5
-

Acrobat 5.0.5
6
-

Acrobat 6.0.3 Pro
7
OK
Acrobat 7.0.9 Pro
(Acrobat 7.1.4 Proは未確認)
8
-
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

  

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

 

Sub AcroExch_AVPageView_GetPageNum()

    Dim objAcroApp As New Acrobat.AcroApp
    Dim objAcroAVDoc As New Acrobat.AcroAVDoc
    Dim objAVPageView As Acrobat.AcroAVPageView
    Dim lRet As Long

    'Acrobatアプリケーションを起動する。
    lRet = objAcroApp.Show
    'PDFファイルを開いて表示する。
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
    'GetAVPageViewオブジェクトを作成する。
    Set objAVPageView = objAcroAVDoc.GetAVPageView
    'PDFファイルの2ページ目を表示する。
    lRet = objAVPageView.Goto(1)
    '画面表示している頁番号を表示する。
    MsgBox objAVPageView.GetPageNum()

    'PDFファイルを閉じます。
    lRet = objAcroAVDoc.Close(1)
    'Acrobatアプリケーションを終了する。
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit

End Sub

 

補足

  • 特に無し。

 

動作確認環境

  • WindowsXP Pro(+ SP2) +
    Acrobat 7.0.9 Pro + Office 2003 + MicrosoftUpdate

 

戻る

コメントを残す

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

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

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

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れるとエラーになる場合が有ります。その時はコードの前後に <code> ・・・</code> タグを入れてください。

This site uses Akismet to reduce spam. Learn how your comment data is processed.