' Для информации. Пройтись по всем абзацам в документе.
    Dim p As Paragraph
    Dim strText As String
    
    For Each p In ActiveDocument.Paragraphs
        strText = p.Range.Text
        Debug.Print Left(strText, Len(strText) -  1 )
    Next p

    ' По сабжу. Соответсвенно, если хочешь пройтись от начала
    ' до конца, то Selection должен быть в начале документа.
    Do While Selection.End < ActiveDocument.Content.End -  1 
        Selection.MoveRight Unit:=wdWord, Count:= 1 , Extend:=wdExtend
        Selection.MoveRight Unit:=wdCharacter, Count:= 1 
    Loop