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

Question

我会发布我对这个问题的解决方案，但也许其他人已经找到了更好的方法。

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

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

我正在运行 Excel 2013 和 Adob​​e Acrobat 9.0 Pro。

我明白可以回答我自己的问题。

Answer 1

当安装了 Excel 2013 Professional 和 Adob​​e Acrobat 9.0 Pro 时，此解决方案有效。

您需要启用 Adob​​e 对象模型：选择工具 -> 参考 -> Acrobat 复选框。

Adobe 的 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