Avec une petite macro :


Sub supprim_comments()
'macro écrite par m@rina
For Each commentaire In ActiveDocument.Comments
commentaire.Delete
Next
End Sub