problem with word bookmarks

[ugurtutuneker]

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?

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

Thanks.