Read all lines in document

[Roger]

Is it possible to loop through an entire word document on a line - by - line
basis?

If so, how?


Thanks,

Roger

 

[Greg Maxey]

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

 

[Roger]

Thanks

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