如何使用VBA获取pdf文档中的页数？

Question

我会发布我的解决方案，但也许其他人找到了更好的方法。

我想使用VBA获取pdf文档中的页数。

我回顾了类似的[vba]和[acrobat]问题，但我没有找到一个独立的解决方案。在查看了其他帖子，Adobe Acrobat的SDK和VBA对象浏览器之后，我学到了足够的知识来拼凑这个解决方案。

我正在运行Excel 2013和Adobe Acrobat 9.0 Pro。

我理解它对answer my own question没问题。

Answer 1

安装Excel 2013 Professional和Adobe Acrobat 9.0 Pro时，此解决方案有效。

您需要启用Adobe对象模型：选择工具 - >引用 - > 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