Cacher is the code snippet organizer for pro developers

    With Selection
        .HomeKey unit:=wdLine, Extend:=wdExtend
        .MoveEnd unit:=wdLine, Count:=1
    End With
    If Selection.Text Like "*" & Chr(13) Then _
    Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend