Discussion :

[Anton_2024]

Bonjour,

Bonne année à tous!
Je cherche à extraire tous les commentaires qui ont été faits sur un document word et les mettre sur excel.

J'ai déjà développé une macro qui fonctionne et qui répond à 90% à mon besoin, elle est en pièce jointe.

Par contre, il me manque une info à extraire et je ne sais pas comment :
j'aimerai, pour chaque commentaire, ajouter dans deux colonnes les informations suivantes :
- Le libellé du titre en chapeau, du texte commenté
- le niveau de profondeur : 1, 1.1, 1.1.1

Macro Word - extraction comm.txt

[mach1974]

Bonjour, Bonne Année!
Il faut simplement utiliser l'objet TablesOfContents pour trouver la profondeur et les titres

ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, _
Level:=2, Entry:="Introduction"

[Anton_2024]

merci pour votre aide.

Seulement l'objet TablesOfContents renvoie toute la table des matières.
cela ne correspond pas à mon besoin qui est d'extraire seulement le titre concerné de la table des matières.
j'ai essayé avec tablesOfContents.Item sans succès.

Voici la macro que j'utilise (macro extraction titres). Elle extrait toute la table des matières dans la cellule A2.
j'aimerai l'adapter pour que le 1er titre soit en A2, le second en A3 et ainsi de suite.

******************************

Sub Export_Titre()
'
' Export_Titre
'
'

'Créer le projet Word vba
Dim xlApp As Object
Dim xlWB As Object
Dim i As Integer
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err Then
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Add ' créer un nouveau classeur
With xlWB.Worksheets(1)

'En-tête
.Cells(1, 1).Formula = "Titre"
.Cells(1, 2).Formula = "Profondeur"

'Reprendre les titres

For i = 1 To ActiveDocument.TablesOfContents.Count
.Cells(i + 1, 1).Formula = ActiveDocument.TablesOfContents(i).Range

Next i

End With
Set xlWB = Nothing
Set xlApp = Nothing

End Sub

*********************************

Quelqu'un aurait une idée ?
Merci à vous!

[E KERGRESSE]

Bonjour,

Il vous faut passer par une boucle sur les paragraphes de la table des matières :

Exemple :

Nb : Chez moi, le caractère entre le dernier point de la hiérarchisation et le titre est le caractère 9.

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
25
26
27
28
29
30
31
32
33
34
 
Public MatriceContents() As Variant
Public IndexTab As Integer
 
Sub Export_Titre2()
 
'Créer le projet Word vba
Dim I As Integer, J As Integer
Dim MonTableau As Variant
 
  With ActiveDocument
        IndexTab = 0
        For I = 1 To .TablesOfContents.Count
            With .TablesOfContents(I).Range
                 For J = 1 To .Paragraphs.Count
                     If Len(.Paragraphs(J).Range) > 2 Then
                        'MonTableau = Split(.Paragraphs(J).Range, "." & Chr(9))
                        MonTableau = Split(.Paragraphs(J).Range, Chr(9))
                        ReDim Preserve MatriceContents(2, IndexTab)
                        MatriceContents(0, IndexTab) = I
                        MatriceContents(1, IndexTab) = MonTableau(0)
                        MatriceContents(2, IndexTab) = Mid(MonTableau(1), 1, Len(MonTableau(1)) - 2)
                        IndexTab = IndexTab + 1
                    End If
                 Next J
          End With
        Next I
 End With
 
 'For IndexTab = LBound(MatriceContents, 2) To UBound(MatriceContents, 2)
 '     Debug.Print "TM : " & MatriceContents(0, IndexTab) & ", titre : " & MatriceContents(2, IndexTab) & ", profondeur : " & MatriceContents(1, IndexTab)
' Next IndexTab
 
End Sub

La variable MatriceContents étant public, vous pouvez l'utiliser dans votre autre procédure.

[Anton_2024]

merci beaucoup pour votre proposition de solution!