Форум по VBA и MS Office

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

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

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

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

Благодарю!