TOP > AcroExch.AVPageView > GetAVDoc [...]
説明
現在のページに関連しているAcroExch.AVDocオブジェクトを取得します。
実際はドキュメント全体がオブジェクトとして返されます。
形式
LPDISPATCH GetAVDoc();
引数
- 無し。
戻り値
- 現在のドキュメントに関するAcroExch.AVDocオブジェクトが返される。
実際はドキュメント全体がオブジェクトとして返されます。
動作するバージョン
| 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.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
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- デバッグウインドウの実行結果
objAcroAVDoc2.GetTitle=Developing Applications Using Interapplication Communication - Adobe Acrobat Professional
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞