If you have Word2003, you can try:
Sub IterateDocLines()
Dim pPage As Word.Page
Dim pLine As Word.Line
For Each pPage In ActiveWindow.ActivePane.Pages
For Each pLine In pPage.Rectangles(1).Lines
Debug.Print pLine.Range
Next
Next
End Sub

Signature
Greg Maxey/Word MVP
A Peer in Peer to Peer Support
> Is it possible to loop through an entire word document on a line - by
> - line basis?
[quoted text clipped - 4 lines]
>
> Roger
Roger - 10 Feb 2005 13:05 GMT
Thanks
> If you have Word2003, you can try:
>
[quoted text clipped - 19 lines]
>>
>> Roger