AcroExch.AVPageView： GetAVDoc メソッド

TOP > AcroExch.AVPageView > *

説明

現在のページに関連しているAcroExch.AVDocオブジェクトを取得します。実際はドキュメント全体がオブジェクトとして返されます。

形式

LPDISPATCH GetAVDoc();

引数

無し。

戻り値

現在のドキュメントに関するAcroExch.AVDocオブジェクトが返されます。実際はドキュメント全体がオブジェクトとして返されます。

動作するバージョン

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.AVDocオブジェクトを取得します

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

001 Sub AcroExch_AVPageView_GetAVDoc()
002 
003     Dim objAcroPDDoc    As New Acrobat.AcroPDDoc
004     Dim objAcroAVDoc    As New Acrobat.AcroAVDoc
005     Dim objAcroAVDoc2   As Acrobat.AcroAVDoc
006     Dim objAVPageView   As Acrobat.AcroAVPageView
007     Dim lRet            As Long     '戻り値
008     Dim lGetZoomType    As Long
009      
010     'PDFドキュメントを開く
011     lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
012     'AVPageViewオブジェクトを作成
013     Set objAVPageView = objAcroAVDoc.GetAVPageView
014     lRet = objAVPageView.Goto(3)
015      
016     '別のAVDocオブジェクトを得る
017     Set objAcroAVDoc2 = objAVPageView.GetAVDoc
018     Debug.Print "objAcroAVDoc2.GetTitle=" & objAcroAVDoc2.GetTitle
019     lRet = objAVPageView.Goto(5)
020      
021     '保存しないでPDFドキュメントを閉じる
022     lRet = objAcroPDDoc.Close
023     lRet = objAcroAVDoc.Close(1)
024     lRet = objAcroAVDoc2.Close(1)
025 
026     'オブジェクトを強制解放する。Acrobatも終了する。
027     Set objAVPageView = Nothing
028     Set objAcroAVDoc = Nothing
029     Set objAcroAVDoc2 = Nothing
030     Set objAcroPDDoc = Nothing
031 
032 End Sub

実行結果

デバッグウインドウの実行結果です。

objAcroAVDoc2.GetTitle=Developing Applications Using Interapplication Communication - Adobe Acrobat Professional

Adobe Web 解説

OLE Automation / AcroExch.AVPageView / GetAVDoc (公式サイト・英語)

動作確認環境

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

＜戻る＞

PDF