[VBA-W]Numéro de page des titres d'un document Word

[bonigo]

Bonjour à tous,

Je cherche à faire un scan d'un fichier Word en VB.

Mon but, trouver tous les titres de niveau 1, 2, 3 et écrire dans un fichier texte de 3 colonnes :

1 - le niveau du titre
2 - le texte correspondant
3 - le numéro de la page associée au titre (c'est surtout là que ça bloque car je n'arrive pas à lier un paragraphe à un numéro de page).

Merci d'avance à tous ceux qui voudront bien prendre le temps de m'aider.

A bientot

[bidou]

par ex

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim MonPara As Paragraph, Traite As Boolean
Dim Niveau As Integer, Texte As String, NumPage As Integer
 
For Each MonPara In ActiveDocument.Paragraphs
 
    Traite = True
    Select Case MonPara.Style
        Case "Titre 1"
            Niveau = 1
        Case "Titre 2"
            Niveau = 2
        Case "Titre 3"
            Niveau = 3
        Case Else
            Traite = False
 
    End Select
    If Traite Then
        Texte = MonPara.Range.Text
        NumPage = MonPara.Range.Information(wdActiveEndPageNumber)
        MsgBox Niveau & vbCrLf & Texte & vbCrLf & NumPage
    End If
 
Next

[zazaraignée]

Wow!

Tu m'épates, Bidou! Faut que j'essaie ça!

à demain. Je retourne étudier.

[bonigo]

Super, merci bidou...

je teste ça ce soir et je te dis si ça marche.


PS : lol, ma copine m'appelle toujours bidou!!!!

[Megaxel]

Dans 2546 messages, on pourra vraiment vous confondre...

[AlainTech]

Euh...

Le but ne serait-il pas de créer une table des matières???

Word fait ça très bien sans la moindre programmation

[bonigo]

Merci beaucoup, le programme marche nickel...

Remarque pour AlainTech, mon but final n'est pas de créer une table des matières sous word, ce qu'il sais effectivement très bien faire tout seul.

Le but est de récupérer automatiquement cette "table des matières" et ce même si elle n'existe pas dans le doc (donc en scannant les titres) pour création automatique des signets lors d'un export PDF.

[ouskel'n'or]

Ton truc m'intéresse. Tu ne pourrais pas mettre ton code quand tu auras fini ?
Je crées tous les deux mois un pdf à partir d'Access, avec cent signets à mettre à jour... Ça me ferait gagner du temps que je pourrais passer plus utilement sur le forum Et puis ça pourrait intéresser du monde...

A+ et merci d'avance...

[bonigo]

Salut tout le monde...

Bon j'ai bien avancé, et si ça peut servir, je vais vous donner des infos.

Par contre, je vais me faire opérer et j'ai pas trop le temps d'ici mercredi prochain de développer ce que j'ai fait. Pour les patients, je vous promets un retour.

A bientot, après mon charcutage (l'épaule pour info)

[bidou]

bon courage