Dim i as Long, pararange as Range
For i =1 to ActiveDocument.Paragraphs.Count
Set pararange to ActiveDocument.Paragraphs(i).Range
'Run your code on pararange
Next i

Signature
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.
Hope this helps,
Doug Robbins - Word MVP
> Hello from Steved
>
[quoted text clipped - 6 lines]
> paragraphs to the end.
> Thankyou.
Steved - 24 Nov 2004 00:38 GMT
Excellent I thankyou.
>-----Original Message-----
>Dim i as Long, pararange as Range
[quoted text clipped - 14 lines]
>
>.