problem with word bookmarks

What i'm trying to do here is chopping the text into 1 word/line format till the end of text
Can someone please tell me why this loop never ends?

VB Code:

Do Until ActiveDocument.Bookmarks("\Sel") = ActiveDocument.Bookmarks("\EndOfDoc")
    Selection.TypeParagraph
    Selection.MoveRight Unit:=wdWord, Count:=1
Loop

Thanks.

No idea.

However the word doc (I ran something in code on one in word 97) used a range object that could be set to the whole document, then you can reset it to the last place to check whether you are there. I think there was an option to go to words with in the document, so you might be able to loop through each word, move to the next character after the word and check if it is a return char/space, and replace as required.

Or select the whole doc and use the find n replace to replace spaces with the paragraph/newline char. find n replace via code.

Looks like it keeps inserting new lines and pushing the end bookmark down so it will never reach it.

Vince has a good suggestion. Search for the "/p" paragraph/newline char.