AcroExch.PDPage: GetDoc メソッド

TOP > AcroExch.PDPage > 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

 

 

説明: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編)
 

実行結果

Source file 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

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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