[Resolvido]Contar paginas do arquivo pdf ao abri-lo

Bom dia a todos estou com uma pequena duvida preciso contar a quantidade de paginas de um arquivo pdf ao abri-lo e armazenar esse valor num campo, pesquisando na rede encontrei esse codigo no site vb mania criado por HUGOSSOUZA, mas estou tendo dificuldades em implementa-lo se alguem puder me ajudar fico grato.

Dim objNewPDF As Acrobat.CAcroPDDoc
Dim objOriginalPDF As Acrobat.CAcroPDDoc
Dim strOriginalFile As String


Set objOriginalPDF = CreateObject("AcroExch.PDDoc")
Set objNewPDF = CreateObject("AcroExch.PDDoc")

strOriginalFile = "C:arquivo.pdf"

If objOriginalPDF.Open(strOriginalFile) Then
MsgBox objOriginalPDF.GetNumPages
Else
MsgBox "Erro"
End If


Set objOriginalPDF = Nothing
Set objNewPDF = Nothing

Quando executo ele me diz que não e possivel criar o objeto "AcroExch.PDDoc" bom tambem nao sei certinho qual biblioteca tenho que referenciar. A versao do meu access é xp

Tente a biblioteca Acrobat.tlb

Se der tudo certo, seria interessante disponibilizar um exemplo no Repositório de Exemplos, caso queira.

Meu caro nao consigo achar esse biblioteca pesquisei falaram dentro de adobe/acrobat/..... mas aqui tenho somente o adobe reader e essa biblioteca nao consta teria como vc me ajudar a conseguir esse biblioteca

mas se conseguir com certeza disponibilizarei aqui no forum.Infelizmente aqui onde trabalho eles nao autorizam esse aplicativo mas se nao conseguir ela aqui vou tentar em casa pois la tenho o Acrobat Pro

Tente referenciar essa dll do arquivo em anexo para ver se funfa: