VBAを使用してPDF文書のページ数を取得する方法は？

Question

私はこの質問に私の解決策を掲載しますが、おそらく他の人がより良い方法を見つけました。

VBAを使用してPDF文書のページ数を取得したかったのですが、

私は同様の[vba]と[acrobat]の質問を見直しましたが、私は単独で解決策を見つけることはできませんでした。他の投稿、Adobe AcrobatのSDK、およびVBAオブジェクトブラウザを見直した後、私はこの解決策をまとめて覚えました。

私はExcel 2013とAdobe Acrobat 9.0 Proを実行しています。

私はokuch answer my own questionを理解しています。

Answer 1

このソリューションは、Excel 2013 ProfessionalおよびAdobe Acrobat 9.0 Proがインストールされている場合に機能します。

アドビオブジェクトモデルを有効にする必要があります。ツール - >参照 - > Acrobatチェックボックスがオンになっている必要があります。

Adobe's SDKには、GetNumPagesメソッドに関する限定されたドキュメントがあります。

'with Adobe Acrobat 9 Professional installed 
'with Tools -> References -> Acrobat checkbox selected 

Sub AcrobatGetNumPages() 

Dim AcroDoc As Object 

Set AcroDoc = New AcroPDDoc 

AcroDoc.Open ("C:\Users\Public\Lorem ipsum.pdf") 'update file location 

PageNum = AcroDoc.GetNumPages 

MsgBox PageNum 

AcroDoc.Close 

End Sub