AcroExch.AVPageView: GetDoc メソッド

TOP > AcroExch.AVPageView > GetDoc      [...]


説明

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

形式

LPDISPATCH GetDoc();

引数

  1. 無し。

戻り値

  • 実際は現在のドキュメントに関するAcroExch.PDDocオブジェクトが返される。

動作するバージョン

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

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

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。
001 Sub AcroExch_AVPageView_GetDoc() 002 003 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc 005 Dim objAVPageView As Acrobat.AcroAVPageView 006 Dim lRet As Long '戻り値 007 Dim lGetNumPages As Long 008 009 'PDFドキュメントを開く 010 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "") 011 'AVPageViewオブジェクトを作成 012 Set objAVPageView = objAcroAVDoc.GetAVPageView 013 'PDDocオブジェクトを作成 014 Set objAcroPDDoc = objAVPageView.GetDoc 015 lGetNumPages = objAcroPDDoc.GetNumPages 016 Debug.Print "lGetNumPages=" & lGetNumPages 017 018 '保存しないでPDFドキュメントを閉じる 019 lRet = objAcroAVDoc.Close(1) 020 lRet = objAcroPDDoc.Close 021 022 'オブジェクトを強制解放する。Acrobatも終了する。 023 Set objAVPageView = Nothing 024 Set objAcroAVDoc = Nothing 025 Set objAcroPDDoc = Nothing 026 027 End Sub


 Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
 

 

補足

  • 特に無し。

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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