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:
  1. Do Until ActiveDocument.Bookmarks("\Sel") = ActiveDocument.Bookmarks("\EndOfDoc")

  2.     Selection.TypeParagraph

  3.     Selection.MoveRight Unit:=wdWord, Count:=1

  4. Loop

Thanks.