vba如何批量获取pdf页数？

Question

如题所述

Answer 1

1、首先双击打开PDF应用。

2、如图点击红圈里的“合并文件”，轻轻点击鼠标左键打开。

3、点击后出现如下图的弹屏。

4、选中要计算页数的文件。

5、将文件拖拽到步骤四的弹屏里。如图所示。

6、拖拽完成后点击红圈里的“下一步”。

7、点击“创建”。

8、最后就会看到已经在提取文件并计算了，左下角红圈里是计算后的页数显示，计算完成后选择右上角的“X”退出不保存即可。

Answer 2

可以使用Adobe Acrobat应用程序来批量获取PDF页数的VBA代码。下面是一段示例代码：
VBnet网络
Copy code
Sub GetPageCount()
Dim acroApp As Acrobat.CAcroApp
Dim acroAVDoc As Acrobat.CAcroAVDoc
Dim acroPDDoc As Acrobat.CAcroPDDoc
Dim fileNames() As Variant
Dim pageCount As Long
Dim i As Long

'选择文件
fileNames = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf", , "Select PDF files", , True)

'启动Acrobat应用程序
Set acroApp = CreateObject("AcroExch.App")
acroApp.Show

For i = LBound(fileNames) To UBound(fileNames)
'打开PDF文档
Set acroAVDoc = CreateObject("AcroExch.AVDoc")
If acroAVDoc.Open(fileNames(i), "") Then
Set acroPDDoc = acroAVDoc.GetPDDoc
'获取页数
pageCount = acroPDDoc.GetNumPages()
'输出页数
Debug.Print fileNames(i) & " : " & pageCount
'关闭文档
acroAVDoc.Close True
End If
Next i

'退出Acrobat应用程序
acroApp.Exit
Set acroApp = Nothing
End Sub
使用此代码，您可以选择要处理的PDF文件，然后将每个文件的页数输出到调试窗口中。请注意，此代码需要安装Adobe Acrobat应用程序才能正常工作。