Word VBA: Последний символ в строке

[Svetik]

Добрый вечер!
Изучаю VBA.
Не поможете с такой задачей: мне надо в конце строки установить неразрывный пробел, а простой пробел, который окажется за неразрывным, удалить.

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

А с какой строкой нужно работать? Со всеми строками в файле, с выделенной строкой или в выделенном фрагменте?

[Svetik]

Только с выделенной строкой.

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

Sub Макрос()
    '1. Установка курсора в конец строки.
    Selection.EndKey Unit:=wdLine
    ' Если слева от курсора пробел.
    If Selection.Characters(1).Previous.text = " " Then
        '2. Замена пробела на неразрывный пробел.
        Selection.Characters(1).Previous.text = Chr(160)
    End If
End Sub

[Svetik]

Благодарю!