Discussion :

[informer]

Bonjour à tous,

J'essaye de trouver le moyen pour identifier tous les paragraphes qui ont des commentaires associés pour les exporter dans un fichier excel.

Merci pour toute aide

[Invité]

Bonsoir,

Regardez si ces discussions peuvent vous aider :

Selectionner-commentaire-programme
Introduction-commentaires-vba

[informer]

Bonsoir Éric et merci pour ton aide.

Le premier lien est très intéressant mais il ne permet pas de faire le lien entre un paragraphe et ses commentaires associés car le code boucle sur la collection de commentaires.

Quant au deuxième lien, le bout de code important est celui avec matrice pour enregistrer les données dans un fichier Excel.

[Invité]

Quant au deuxième lien, le bout de code important est celui avec matrice pour enregistrer les données dans un fichier Excel.

Bonjour,

Je n'ai pas le temps actuellement, mais tu peux récupérer le numéro de paragraphe dans la dernière partie de la procédure. Pour cela, il te faut donner une quatrième colonne à la matrice et après la récupération du commentaire étendre la sélection jusqu'au début du document pour dénombrer le nombre de paragraphes. Pour cela regarde le tuto d'Olivier LEBEAU :
https://heureuxoli.developpez.com/office/word/vba-word/

Précision : Dans cette matrice, la colonne est représentée par la première valeur.

[informer]

Merci Éric pour ton aide et ai par ailleurs trouvé la solution à mon problème Exemple ici par user662182

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
35
36
37
38
39
40
41
42
 Sub CopyCommentsToExcel()
'Create in Word vba
'TODO: set a reference to the Excel object library (Tools --> Reference --> Microsoft Excel 12.0 Object library)
 
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer
Dim HeadingRow As Integer
HeadingRow = 3
 
Dim cmtRef As Range
 
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Add ' create a new workbook
With xlWB.Worksheets(1)
' Create report info
    .Cells(1, 1).Formula = "Reviewed document:"
 
' Create Heading
    .Cells(HeadingRow, 1).Formula = "Index"
    .Cells(HeadingRow, 2).Formula = "Page"
    .Cells(HeadingRow, 3).Formula = "Line"
    .Cells(HeadingRow, 4).Formula = "Comment"
    .Cells(HeadingRow, 5).Formula = "Reviewer"
    .Cells(HeadingRow, 6).Formula = "Date"
    For i = 1 To ActiveDocument.Comments.Count
        .Cells(2, 1).Formula = ActiveDocument.Comments(i).Parent
        .Cells(i + HeadingRow, 1).Formula = ActiveDocument.Comments(i).Index
        .Cells(i + HeadingRow, 2).Formula = ActiveDocument.Comments(i).Reference.Information(wdActiveEndAdjustedPageNumber)
        .Cells(i + HeadingRow, 3).Formula = ActiveDocument.Comments(i).Reference.Information(wdFirstCharacterLineNumber)
        .Cells(i + HeadingRow, 4).Formula = ActiveDocument.Comments(i).Range
        .Cells(i + HeadingRow, 5).Formula = ActiveDocument.Comments(i).Initial
        .Cells(i + HeadingRow, 6).Formula = Format(ActiveDocument.Comments(i).Date, "dd/MM/yyyy")
        '        .Cells(i + 1, 3).Formula = ActiveDocument.Comments(i).Parent
        '        .Cells(i + 1, 3).Formula = ActiveDocument.Comments(i).Application
        '        .Cells(i + 1, 7).Formula = ActiveDocument.Comments(i).Author
    Next i
End With
Set xlWB = Nothing
Set xlApp = Nothing
End Sub

Qui se base sur une solution donnée Ici par aldoduke