Delete all comments after cursor position

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
Tue Dec 13 16:25:08 CST 2005

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
-------------------------------------
Krgrds,
Perry

<Charlie Mac> wrote in message
news:05eup19bvkjo7n55gf57tp2n0kbkj1i9ps@4ax.com...
>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.
>
>

Charlie
Wed Dec 14 13:45:09 CST 2005

Perry,

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

Take care,

Charlie of Texas

On Tue, 13 Dec 2005 23:25:08 +0100, "Perry"
<drumprogrammer03@hotmail.com> wrote:

>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
>-------------------------------------
>Krgrds,
>Perry
>
><Charlie Mac> wrote in message
>news:05eup19bvkjo7n55gf57tp2n0kbkj1i9ps@4ax.com...
>>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.
>>
>>
>