AcroExch.AVPageView: GetPage メソッド

TOP > AcroExch.AVPageView > GetPage      [...]


説明

現在のPDFドキュメントに対応させたAcroExch.PDPageオブジェクトを取得します。

 

形式

LPDISPATCH GetPage();

 

引数

  1. 無し。

 

戻り値

  • 現在扱っているPDFドキュメントに関するAcroExch.PDPageオブジェクトが返される。

 

動作するバージョン

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

 

説明:現在のドキュメントに対応させたAcroExch.PDPageオブジェクトを取得します。

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

 

Sub AcroExch.AVPageView_GetPage()

    Dim objAcroAVDoc    As New Acrobat.AcroAVDoc
    Dim objAVPageView   As Acrobat.AcroAVPageView
    Dim objAcroPDPage   As Acrobat.AcroPDPage
    Dim lRet            As Long     '戻り値
    Dim lGetNumber      As Long
    
    'PDFドキュメントを開く。Acrobatも起動する。
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
    'AVPageViewオブジェクトを作成
    Set objAVPageView = objAcroAVDoc.GetAVPageView
    lRet = objAVPageView.GoTo(33'34頁に移動
    'PDDocオブジェクトを作成
    Set objAcroPDPage = objAVPageView.GetPage
    '現在画面表示しているページ番号を取得する。
    lGetNumber = objAcroPDPage.GetNumber
    Debug.Print "GetNumber=" & lGetNumber
    
    '保存しないでPDFドキュメントを閉じる
    lRet = objAcroAVDoc.Close(1)
    'オブジェクトを強制解放する。Acrobatも終了する。
    Set objAcroPDPage = Nothing
    Set objAVPageView = Nothing
    Set objAcroAVDoc = Nothing

End
 Sub

 

補足

  • SDKでは「ページに対するAcroExch.PDPageオブジェクト」の取得と書かれていますが、
    実際は現在扱っているPDFドキュメント全体のオブジェクトを返します。

 

動作確認環境

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

 

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

コメントをする時は最低でも以下をお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン