PDFのページ数の取得について

T.K 2005-09-05 21:59:25 No: 91999

始めまして、T.Kと申します。
実はPDFファイルを読み込んで
ページ数を取得するというプログラムを
VB6.0で作成しなければならないのですが
Adobe ReaderをOLEで使用してページ数の
取得という事はできるのでしょうか？

お答えよろしくお願い致します。

Mas 2005-11-11 01:24:32 No: 92000

はじめまして。MASと申します。

サンプルです。

Dim AcroApp As Acrobat.CAcroApp
Dim AVDoc As Acrobat.CAcroAVDoc
Dim PDDoc As Acrobat.CAcroPDDoc

Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")

AVDoc.Open(PDFファイル名, "")
Set PDDoc = AVDoc.GetPDDoc

PDDoc.GetNumPages

最後の「GetNumPages」で総ページ数の取得が可能なはずです。