VBからPDFのページ数を取得するには？ (ID:106102)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Adobe Acrobat がインストールされているならば、 次のようにして PDF ファイルの総ページ数を取得することができます。 # Acrobat Reader だけしかインストールされてない場合には、 # この方法では、無理かも。 Private Sub Form_Load() Dim AcroPDDoc As Object 'Acrobat.CAcroPDDoc Dim bRetValue As Boolean Set AcroPDDoc = CreateObject("AcroExch.PDDoc") '* オブジェクトの作成 bRetValue = AcroPDDoc.Open("d:\Sample.pdf") '* ファイルのオープン Debug.Print AcroPDDoc.GetNumPages() '* 総ページ数取得 bRetValue = AcroPDDoc.Close() '* ファイルのクローズ Set AcroPDDoc = Nothing '* オブジェクトの破棄 End Sub