Word: Deleting Resolved Comments

Here's a quick macro that deletes resolved comments.

Sub DeleteResolvedComments()

   Dim indx As Long

   Dim cmt As Comment

   For indx = ActiveDocument.Comments.Count To 1 Step -1

      Set cmt = ActiveDocument.Comments(indx)

      If cmt.done Then cmt.DeleteRecursively

   Next indx

End Sub