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 FAQ:
http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
Refresher wrote:
> Thanks for the reply. Unfortunately they are all by the same reviewer.
>
> "Suzanne S. Barnhill" wrote:
>
>> If these are comments by a specific reviewer, you can display the
>> markup of just that reviewer and use Delete All Comments Shown.
>>
>> --
>> Suzanne S. Barnhill
>> Microsoft MVP (Word)
>> Words into Type
>> Fairhope, Alabama USA
>>
>> "Refresher" <(E-Mail Removed)> wrote in message
>> news:EB39AA63-9EE4-4097-BE63-(E-Mail Removed)...
>>> Hello,
>>> I have 1000 comments in a word document with a specific phrase in
>>> it, say "AAA". I want to delete all of those in bulk without
>>> deleting the rest of the
>>> comments. Is there a way to do this?
>>> Thanks.
Similar Threads
