recorrer lineas con macro

Por ejemplo:

app as word.application
doc as word.document
frase as string

Set app = CreateObject("Word.Application")
Set doc = app.Documents.Open("C:\prueba.doc")

for i=1 to doc.sentences.count
frase=doc.sentences(i) 'aqui haces lo que quieras con
la linea
next i

Saludos

como se puede recorrer todas las lineas de un archivo de
word con una macro?
Se puede hacer un bucle?

muchas gracias.
.