Discussion :

[fouineur030]

Bonjour,
je suis sous word et je voudrais récupérer les N° de chapitres, paragraphes, sous-paragraphes que génère automatiquement word via les styles et qui servent à "monter" la table des matières; ceci afin de les stocker dans un fichier EXCEL via une macro VB.

Quelqu'un pourrait il m'indiquer où et de quelle manière je puis récupérer ces numéros?

Merci d'avance.

[SilkyRoad]

Bonsoir


Tu peux essayer d'adapter cette macro Excel qui ouvre un document Word pour en extraire les paragraphes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub boucleParagraphesWord()
'
'Nécessite d'activer la référence Microsoft Word xx.x Object Library
'
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Paragraphe As Paragraph
Dim i As Integer
 
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents.Open("C:\monDocument.doc")
 
For Each Paragraphe In docWord.Paragraphs
    If Paragraphe.Range.ListFormat.ListValue <> 0 Then
        i = i + 1
        Cells(i, Paragraphe.Range.ListFormat.ListLevelNumber) = _
            Paragraphe.Range.ListFormat.ListString
        Cells(i, Paragraphe.Range.ListFormat.ListLevelNumber + 1) = _
            Paragraphe.Range.Sentences(1).Text
    End If
Next
 
End Sub

michel

[Heureux-oli]

Sachant que la table des matières est un champ, cette macro te permet de récupérer le contenu du champ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub listchamps()
Dim stTableau As String
Dim ch As Field
 
For Each ch In ActiveDocument.Fields
stTableau = stTableau & vbCrLf & ch.Code & " - " & ch.Result
Debug.Print stTableau
Next ch
Application.Documents.Add
 
Selection.TypeText stTableau

[fouineur030]

Merci j'essaye tout de suite...
Crdlmnt

[fouineur030]

ok merci pour tout
Crdlmnt