PDF - Extraction de la table des matières et du nombre de pages

[delma]

Hello,

Je suis en train de faire un fichier excel permettant de lister tous les documents d'un répertoire et de ses sous répertoires. Ces documents sont en grande majorité des .pdf. Je souhaite également avoir le nombre de pages de chaque document et finalement pouvoir extraire la table des matières de chaque document.

La partie permettant de lister les fichiers fonctionne, ainsi que la récupération du nombre de pages. Toutefois pour le nombre de page je m'amuse à ouvrir le fichier en un array de bytes et à parser chaque pdf en comptant le nombre de fois que je retrouve les tags /Type/Page.

N'y a-t-il pas un moyen plus simple pour le faire, je viens de voir qu'il y a une API Adobe permettant d'instancier ce genre d'objets:

Code :

1
2
    Dim PDFApp As AcroApp
    Dim PDFDoc As AcroAVDoc

N'y a-t-il pas une fonction le faisant directement? J'ai beau chercher je n'ai pas trouvé de réponses pertinentes.

Par contre en ce qui concerne l'extraction de la table des matières, je n'ai pas vraiment d'idée....

Pourriez-vous m'aider?

Merci d'avance.

A+

[kiki29]

Salut, pour le texte voir par exemple ici
Pour le nombre de pages :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Tst()
Dim iPage As Long
Dim PDDoc As Object
Dim sNomFichier As String
 
    sNomFichier = "C:\Transfert\Test.pdf"
 
    Set PDDoc = CreateObject("AcroExch.PDDoc")
    PDDoc.Open sNomFichier 
        iPage = PDDoc.GetNumPages()
    PDDoc.Close
    Set PDDoc = Nothing
 
    MsgBox iPage
 
End Sub

[delma]

Merci pour ta réponse.

J'ai en effet trouvé un moyen de récupérer le contenu du fichier .pdf dans mon fichier excel comme dans l'exemple que tu m'as fourni.
Par contre je le récupère de manière brute et je cherche à savoir si dans le document pdf il n'y a pas de balises indiquant le début et la fin de la table des matières que je pourrais reconnaitre?

A+