Comment obtenir le nombre de pages dans un document pdf en utilisant VBA?

Question

Je vais poster ma solution à cette question, mais peut-être que d'autres ont trouvé un meilleur moyen.

Je voulais obtenir le nombre de pages dans un document pdf en utilisant VBA. J'ai passé en revue des questions similaires [vba] et [acrobat], mais je n'ai pas trouvé de solution autonome. Après avoir examiné les autres publications, le SDK d'Adobe Acrobat et le navigateur d'objets VBA, j'ai appris à rassembler cette solution. Je travaille sous Excel 2013 et Adobe Acrobat 9.0 Pro. Je comprends que c'est ok à answer my own question.

Answer 1

Cette solution fonctionne lorsque Excel 2013 Professional et Adobe Acrobat 9.0 Pro sont installés.

Vous devez activer le modèle objet Adobe: Outils -> Références -> Acrobat case à cocher sélectionnée.

Adobe's SDK possède une documentation limitée sur la méthode GetNumPages.

'with Adobe Acrobat 9 Professional installed 
'with Tools -> References -> Acrobat checkbox selected 

Sub AcrobatGetNumPages() 

Dim AcroDoc As Object 

Set AcroDoc = New AcroPDDoc 

AcroDoc.Open ("C:\Users\Public\Lorem ipsum.pdf") 'update file location 

PageNum = AcroDoc.GetNumPages 

MsgBox PageNum 

AcroDoc.Close 

End Sub