"Maxine" wrote:
> Hi,
> I have a word doc which has had comments added by 2 different users. I
> cannot use the standard Delete Comment button to remove the comments of 1 of
> the users.
> Does anyone have any ideas what is happening here? I think it is written in
> Word 2000.
>
> many thanks
> --
> mdd
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
"Maxine" <Max...@discussions.microsoft.com> wrote in message
news:EFDE818A-DDC2-478C...@microsoft.com...
Sub TC()
Dim oRev As Revision
Dim oCom As Comment
Dim i As Long
For Each oRev In ActiveDocument.Revisions
oRev.Accept
Next oRev
For i = ActiveDocument.Comments.Count To 1 Step -1
ActiveDocument.Comments(i).Delete
Next i
End Sub
After running the macro, you need to Accept All Changes in Document, which
will automatically get rid of any remaining comments you might see.