Delete all comments after cursor position

[Charlie Mac]

I need to position the cursor in a document and run a macro to delete
all comments below the cursor (in the rest of the document). Thanks.

 

[Perry]

Try something like:

Dim r As Range
With ActiveDocument
Set r = .Range(Selection.Range.End, .Content.End)
End With
For x = r.Comments.Count To 1 Step -1
r.Comments(x).Delete
Next

 

[Charlie Mac]

Perry,

Thank you for your response. Your code solved my problem.

Take care,

Charlie of Texas