Word VBA Макросы. Как исключить из слова правые пробелы?

[Monocle]

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

Sub Макрос()

    Dim Слово As Range
   
    Set Слово = Selection.Words(1)

End Sub

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

Sub Макрос()

    Dim Слово As Range
   
    Set Слово = Selection.Words(1)
    Слово.MoveEndWhile Cset:=" ", Count:=wdBackward
   
End Sub

[Monocle]

Отлично! Большое спасибо!