VBでPDFファイルをチェックするには？ (ID:77223)

名前

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

本文 Private Sub exexPDDoc_GetInfo() Dim AcroPDDoc As Object 'Acrobat.CAcroPDDoc Dim bRetValue As Boolean Set AcroPDDoc = CreateObject("AcroExch.PDDoc") '* オブジェクトの作成 bRetValue = AcroPDDoc.Open("d:\Sample.pdf") '* ファイルのオープン If bRetValue = False Then MsgBox "Fail to Open PDDoc!" Debug.Print AcroPDDoc.GetInfo("Producer") '* PDF 作成時のプリンタ bRetValue = AcroPDDoc.Close() '* ファイルのクローズ If bRetValue = False Then MsgBox "Fail to Close PDDoc!" Set AcroPDDoc = Nothing '* オブジェクトの破棄 End Sub ちなみに、GetInfo の戻り値は、次のような感じです。 Acrobat Distiller 4.0 for Macintosh Acrobat Distiller 5.0 (Windows) Acrobat PDFWriter 5.0 Windows NT