Hi. Not off hand, but it might require the use of Acrobat API, which means you'll need the full version of Adobe Acrobat. Do you have it?
No, I dont have, but I used:
Function NumeroPag(El_Fichero As String) As Integer
Dim Cadena As String
Dim NumeroF As Long
Dim ObjetoPDF As Object
Cadena = ""
Set ObjetoPDF = CreateObject("VBscript.RegExp")
ObjetoPDF.Global = True
ObjetoPDF.Pattern = "/Type\s*/Page[^s]"
NumeroF = FreeFile
Open (El_Fichero) For Binary As #NumeroF
Cadena = Space(LOF(NumeroF))
Get #NumeroF, , Cadena
Close #NumeroF
NumeroPag = ObjetoPDF.Execute(Cadena).Count
End Function
but is there a file that works