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

[Peach]

Я выделяю слово, щёлкая по нему два раза левой кнопкой мыши. При этом Word включает в выделенный фрагмент правый пробел.
Как с помощью макроса исключить правый пробел из выделенного фрагмента?

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

Этот макрос исключает не один, а любое количество пробелов, которые находятся в выделенном фрагменте справа.

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

[Peach]

Прекрасно, спасибо!