AcroExch.PDPage: GetNumber メソッド

TOP > AcroExch.PDPage > GetNumber      [...]


説明

現在のページのページ番号を得ます。

ドキュメントにおける最初のページはゼロページです。

 

形式

long GetNumber();

 

引数

  1. 無し。

 

戻り値

  • 0以上の数値。

 

動作するバージョン

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
NO
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

 

説明:注釈が無いページ番号を探す。

★注意:以下のサンプルは正しい結果を得るとは限りません。
GetNumAnnotsメソッドが正しく動作している様に見えないからです。

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

 

Sub AcroExch_PDPage_GetNumber()

    Debug.Print "Test_AcroPDPage_GetNumber"
    Dim objAcroApp            As New Acrobat.AcroApp
    Dim objAcroAVDoc        As New Acrobat.AcroAVDoc
    Dim objAcroPDDoc        As New Acrobat.AcroPDDoc
    Dim objAcroPDPage       As Acrobat.AcroPDPage
    Dim objAcroPDAnnot      As Acrobat.AcroPDAnnot
    Dim lRet                     As Long     '戻り値
    Dim i                         As Long     '添え字
    Dim lPage                  As Long     'ページ数
    Dim lPageSkipCnt        As Long     'ページ数合計
    Dim lAnnots                As Long     '注釈数
    
    Const FILEPATH As String = "E:¥Test01.pdf"
    
    'Acrobatを起動表示する
    lRet = objAcroApp.Show  '(TEST用)
    'PDFドキュメントを開く
    lRet = objAcroPDDoc.Open(FILEPATH)
    '画面にPDFを表示する。
    lRet = objAcroAVDoc.Open(FILEPATH, "") '(TEST用)
    
    lPageSkipCnt = 0
    lPage = objAcroPDDoc.GetNumPages - 1
    Debug.Print "全頁数=" & lPage + 1
    
    For i = 0 To lPage
        Set objAcroPDPage = objAcroPDDoc.AcquirePage(i)
        'ページ内にある注釈要素の数を得ます。★バグ有り?
        lAnnots = objAcroPDPage.GetNumAnnots - 1
        If lAnnots < 0 Then
            lPageSkipCnt = lPageSkipCnt + 1
            Debug.Print "注釈オブジェクトが無い頁=" _
                        & objAcroPDPage.GetNumber
        End If
    Next i
    
    Debug.Print "注釈オブジェクトが無い合計ページ数=" _
                & lPageSkipCnt
    'PDFファイルを閉じる
    lRet = objAcroPDDoc.Close

    'Acrobatを閉じる
    lRet = objAcroApp.Hide      '(TEST用)
    lRet = objAcroApp.Exit      '(TEST用)

    'オブジェクトを強制解放する
    Set objAcroAVDoc = Nothing  '(TEST用)
    Set objAcroPDAnnot = Nothing
    Set objAcroPDPage = Nothing
    Set objAcroPDDoc = Nothing
    Set objAcroApp = Nothing

End Sub

  

実行結果

Test_AcroPDPage_GetNumber
全頁数=34
注釈オブジェクトが無い頁=4
注釈オブジェクトが無い頁=5
注釈オブジェクトが無い頁=8
注釈オブジェクトが無い頁=11
注釈オブジェクトが無い頁=12
注釈オブジェクトが無い頁=14
注釈オブジェクトが無い頁=15
注釈オブジェクトが無い頁=17
注釈オブジェクトが無い頁=18
注釈オブジェクトが無い頁=19
注釈オブジェクトが無い頁=20
注釈オブジェクトが無い頁=21
注釈オブジェクトが無い頁=22
注釈オブジェクトが無い頁=23
注釈オブジェクトが無い頁=24
注釈オブジェクトが無い頁=26
注釈オブジェクトが無い頁=27
注釈オブジェクトが無い頁=28
注釈オブジェクトが無い頁=29
注釈オブジェクトが無い頁=30
注釈オブジェクトが無い合計ページ数=20

※上記の結果が正しいという確認が現段階(2008/7/22)では出来ません。

 

補足

  • F8キーでステップ実行し、各メソッドによりどのような動きをするかよく観察すること。
  • (TEST用)はテスト用のロジックで実用時は不要です。

 

動作確認環境

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

 

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

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

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