AcroExch.PDPage: GetDoc メソッド

TOP > AcroExch.PDPage > GetDoc      [...]


説明

ページに関連しているAcroExch.PDDocオブジェクトを取得する。

 

形式

LPDISPATCH GetDoc();

 

引数

  1. 無し。

 

戻り値

  • 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キーでステップ実行しながら動作確認する。
  • 事前に参照設定をする。

 

Sub AcroExch_AcroPDPage_GetDoc()

    Debug.Print "Test_AcroPDPage_GetDoc:" & Now
    Dim objAcroApp            As New Acrobat.AcroApp
    Dim objAcroAVDoc        As New Acrobat.AcroAVDoc
    Dim objAcroPDDoc        As New Acrobat.AcroPDDoc
    Dim objAcroPDDoc2       As New Acrobat.AcroPDDoc
    Dim objAcroPDPage       As Acrobat.AcroPDPage
    Dim objAcroAVPageView   As Acrobat.AcroAVPageView
    Dim lRet                       As Long     '戻り値
    Dim i                           As Long     '添え字
    Dim lPage                    As Long     'ページ数
    
    'Acrobatを起動表示する
    lRet = objAcroApp.Show
    '画面にPDFドキュメントを表示する。
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")
    
    Set objAcroAVPageView = objAcroAVDoc.GetAVPageView()
    Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
    lPage = objAcroPDDoc.GetNumPages - 1
    Debug.Print "全頁数=" & lPage + 1
    
    For i = 0 To lPage
        'ページ移動する。
        lRet = objAcroAVPageView.Goto(i)
        '表示されているページのAcroPDPageを得る
        Set objAcroPDPage = objAcroAVPageView.GetPage()
        '別のAcroPDDocオブジェクトを取得する
        Set objAcroPDDoc2 = objAcroPDPage.GetDoc()
        Debug.Print i & " 全頁数=" & objAcroPDDoc2.GetNumPages
    Next i
    
    'PDFファイルを保存しないで閉じる
    lRet = objAcroPDDoc.Close

    'Acrobatを閉じる
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit

    'オブジェクトを強制解放する
    Set objAcroAVDoc = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroAVPageView = Nothing
    Set objAcroPDDoc = Nothing
    Set objAcroPDDoc2 = Nothing
    Set objAcroApp = Nothing

End Sub

 

実行結果

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等) バージョン