remove comments from doc

[alexanderd]

can any one suggest a macro to remove all comments from a document

[TonyJollans]

While Activedocument.comments.count > 0
Activedocument.comments(1).delete
wend