How to programmatically delete Comments using Word 2000

[Micheline]

How to programmatically delete Comments using Word 2000
I have found the following for Word 2002.

This example deletes all comments in the active document. This example
assumes you have comments in active document.

Sub DelAllComments()
ActiveDocument.DeleteAllComments
End Sub

I have tried it in Word 2000, without success.
Thanks again.

 

[Dave Lett]

Hi,

I think you can use something like the following:

Dim iCom As Integer
For iCom = ActiveDocument.Comments.Count To 1 Step -1
ActiveDocument.Comments(iCom).Delete
Next iCom

HTH,
Dave

 

[Micheline]

Wonderful.... merci

Hi,

I think you can use something like the following:

Dim iCom As Integer
For iCom = ActiveDocument.Comments.Count To 1 Step -1
ActiveDocument.Comments(iCom).Delete
Next iCom

HTH,
Dave