user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

Voici deux macros :

 

pour copier tout commentaire en note de bas de page :

Sub ConvertCommentsToFootnotes()
Dim c As Comment
Dim r As Range
For Each c In ActiveDocument.Comments
Set r = c.Reference
r.Collapse wdCollapseStart
ActiveDocument.Footnotes.Add Range:=r, _
Text:=c.Range.Text
Next c
End Sub

 

pour supprimer tous les commentaires.

Sub DeleteComments()
Dim i As Long
For i = ActiveDocument.Comments.Count To 1 Step - 1
ActiveDocument.Comments(i).Delete
Next i
End Sub

 

 

Statistiques

Aujourd'hui268
Hier1275
Cette semaine268
Ce mois49113
Total depuis 200413310187

11
visiteurs actuellement en ligne

27 septembre 2021