Word VBA Макросы. Как убрать из выделения концевые правые пробелы?

[Black]

Пользователь выделил некоторый фрагмент в тексте.
Как с помощью макроса можно скорректировать выделение, чтобы в него не входили концевые правые пробелы?
Причём пробелы могут быть обычные и неразрывные.

[Администратор]

Sub Макрос()
    Selection.MoveEndWhile Cset:=" " & Chr(160), Count:=wdBackward
End Sub

[Black]

Спасибо.