Sub task213312044()
Selection.MoveEnd Unit:=wdLine, Count:=1
Do While (Len(Selection.Text) > 1)
 res = ""
 s = Selection.Text
 len_s = Len(s)
 LastChar = Mid(s, len_s, 1)
 LastCharIsSpec = LastChar = Chr(11) Or LastChar = Chr(13)

 If LastCharIsSpec Then len_s = len_s - 1
 For i = 1 To len_s
 res = Mid(s, i, 1) & res
 Next

 If LastCharIsSpec Then res = res & LastChar

 Selection.Text = res
 Selection.MoveRight Unit:=wdCharacter, Count:=1
 Selection.MoveEnd Unit:=wdLine, Count:=1
Loop
End Sub