Форум по VBA и MS Office

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

Sub Макрос()

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

End Sub

Sub Макрос()

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

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