Есть ли команда, чтобы проверить, сколько страниц в PDF? - PullRequest
Новая
       18

Есть ли команда, чтобы проверить, сколько страниц в PDF?

0 голосов
/ 25 января 2019

Я пытаюсь объявить новую переменную "x" в VBScript, используя блокнот. Я надеялся, что для скрипта есть команда, чтобы проверить PDF и вернуть количество «y» страниц в переменную «x»

1 Ответ

0 голосов
/ 25 января 2019

Вы можете попробовать этот способ. Я проверил код и дал количество страниц. Просто скопируйте код в блокноте, укажите путь к файлу 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

Пожалуйста, дайте мне знать, если это работает.

...