Delete Comments

[Bruce]

Is there any way to delete all comments at one time from
a WORD 2000 document?

 

[Greg]

This macro works:
Sub DeleteAllComments()
Dim lngIndex As Long
With ActiveDocument.Comments
For lngIndex = 1 To .Count
.Item(1).Delete
Next
End With
End Sub

 

[Klaus Linke]

Is there any way to delete all comments at one
time from a WORD 2000 document?

Hi Bruce,

You can also use "Find/Replace":
Replace all ^a (= comment/annotation markers) with nothing.

Regards,
Klaus