TOP > AcroExch.PDPage > GetDoc [...]
説明
ページに関連しているAcroExch.PDDocオブジェクトを取得する。
形式
LPDISPATCH GetDoc();
引数
- 無し。
戻り値
- AcroExch.PDDocオブジェクト。
動作するバージョン
| 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
説明：PDPageからPDDocオブジェクトを取得し、その全頁数をチェックする。。
- いいサンプルとは言えないが・・。
- F8キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
001 Sub AcroExch_AcroPDPage_GetDoc()
002
003 Debug.Print "Test_AcroPDPage_GetDoc:" & Now
004 Dim objAcroApp As New Acrobat.AcroApp
005 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
006 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
007 Dim objAcroPDDoc2 As New Acrobat.AcroPDDoc
008 Dim objAcroPDPage As Acrobat.AcroPDPage
009 Dim objAcroAVPageView As Acrobat.AcroAVPageView
010 Dim lRet As Long '戻り値
011 Dim i As Long '添え字
012 Dim lPage As Long 'ページ数
013
014 'Acrobatを起動表示する
015 lRet = objAcroApp.Show
016 '画面にPDFドキュメントを表示する。
017 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
018
019 Set objAcroAVPageView = objAcroAVDoc.GetAVPageView()
020 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
021 lPage = objAcroPDDoc.GetNumPages - 1
022 Debug.Print "全頁数=" & lPage + 1
023
024 For i = 0 To lPage
025 'ページ移動する。
026 lRet = objAcroAVPageView.Goto(i)
027 '表示されているページのAcroPDPageを得る
028 Set objAcroPDPage = objAcroAVPageView.GetPage()
029 '別のAcroPDDocオブジェクトを取得する
030 Set objAcroPDDoc2 = objAcroPDPage.GetDoc()
031 Debug.Print i & " 全頁数=" & objAcroPDDoc2.GetNumPages
032 Next i
033
034 'PDFファイルを保存しないで閉じる
035 lRet = objAcroPDDoc.Close
036
037 'Acrobatを閉じる
038 lRet = objAcroApp.Hide
039 lRet = objAcroApp.Exit
040
041 'オブジェクトを強制解放する
042 Set objAcroAVDoc = Nothing
043 Set objAcroPDPage = Nothing
044 Set objAcroAVPageView = Nothing
045 Set objAcroPDDoc = Nothing
046 Set objAcroPDDoc2 = Nothing
047 Set objAcroApp = Nothing
048
049 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
実行結果
Test_AcroPDPage_GetDoc:2008/07/24 13:02:20
全頁数=34
0 全頁数=34
1 全頁数=34
2 全頁数=34
3 全頁数=34
4 全頁数=34
5 全頁数=34
6 全頁数=34
7 全頁数=34
8 全頁数=34
9 全頁数=34
10 全頁数=34
11 全頁数=34
12 全頁数=34
13 全頁数=34
14 全頁数=34
15 全頁数=34
16 全頁数=34
17 全頁数=34
18 全頁数=34
19 全頁数=34
20 全頁数=34
21 全頁数=34
22 全頁数=34
23 全頁数=34
24 全頁数=34
25 全頁数=34
26 全頁数=34
27 全頁数=34
28 全頁数=34
29 全頁数=34
30 全頁数=34
31 全頁数=34
32 全頁数=34
33 全頁数=34
※正常処理です。
補足
- F8キーでステップ実行し、各メソッドによりどのような動きをするかよく観察すること。
- 上記結果から、PDPageオブジェクト(ページ情報)からPDDocオブジェクト（PDFドキュメント情報）への逆連携が可能と分かる。
動作確認環境
- WindowsXP Pro( + SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞