是否有命令检查PDF中有多少页？

Question

我正在尝试使用记事本在vbscript上声明一个新变量“ x”。我希望脚本有一个命令来检查PDF并将“ y”页的页面返回到变量“ x”

Answer 1

您可以尝试这种方式。我已经测试了代码并提供了页数。只需将代码复制到记事本中，提供pdf文件路径并将其设置为vbs文件即可运行。

sPath="C:/Users/kajalk/Downloads/Testing_Newsletter_ April 2018.pdf"
set objpdf=CreateObject("Adodb.Stream")
with objpdf
  .Open
  .Charset = "x-ansi"
  .LoadFromFile sPath
   strReadfile = .ReadText(-1)
end With
With (New RegExp)
        .Pattern = "Type\s*/Page[^s]"
        .IgnoreCase = True
        .Global = True
        getPdfPgCnt = .Execute(strReadfile).Count
End With 

Msgbox getPdfPgCnt

如果可以，请告诉我。