user_mobilelogo

 

Voici deux macros de Stefan BLOM et Dave RADO

 

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'hui64
Hier1788
Cette semaine10422
Ce mois12462
Total depuis 200412310054

1
visiteurs actuellement en ligne

8 août 2020