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

T.K  2005-09-05 12:59:25  No: 91999  IP: [192.*.*.*]

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

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

編集 削除
Mas  2005-11-10 16:24:32  No: 92000  IP: [192.*.*.*]

はじめまして。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」で総ページ数の取得が可能なはずです。

編集 削除