PDFのページ数の取得について (ID:92000)

名前

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

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