As often happens when you want to do something slightly unusual, you need a
macro:
Sub DeleteSomeComments()
Dim oCm As Comment
Dim strPhrase As String
strPhrase = InputBox( _
"What phrase signals a comment to delete?", _
"Delete comments containing a phrase")
If Len(strPhrase) = 0 Then Exit Sub
For Each oCm In ActiveDocument.Comments
If InStr(LCase(oCm.Range.Text), LCase(strPhrase)) Then
oCm.Delete
End If
Next
End Sub
See
http://www.gmayor.com/installing_macro.htm if needed.
The comparison in this macro is not case-sensitive -- for example, if you
enter aaa, then the macro will delete comments containing AAA, AaA, aAa, and
so forth. If you want it to be case-sensitive, remove the word LCase from
the two places it occurs in the code.
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.