Удаление пробела у выделенного слова

Если вы часто редактируете тексты, то вероятно замечали, что при двойном щелчке на слове выделяется не только само слово, но и стоящий за ним пробел справа (если только после слова не идет знак пунктуации):

Такое поведение редактора нежелательно, если вы применяете к выделенному слову полужирное начертание (ну, или другое форматирование). Ведь в этом случае когда вы снимите выделение и продолжите ввод текст после данного слова, следующий текст также будет иметь полужирное начертание.

Поскольку мне самому такое поведение редактора уже порядком надоело, то я решил эту проблему следующим образом. Я написал небольшой макрос и вывел его в виде кнопки на панель инструментов. После того, как я выделяю двойным щелчком какое-либо слово, я применяю макрос. А макрос уже самостоятельно исключает из выделения пробел и применяет к слову полужирное начертание (я использую соответствующий стиль). Просто и быстро, и нет нужды совершать дополнительные действия мышью или клавишами.

Вот код макроса для тех, кто не использует стили. Выполнив его, к вашему выделенному слову (или словосочетанию) будет применено полужирное начертание. Вы можете изменить действие макроса на другое, нужное вам.

Sub BoldSelectText()
'оформление выделенного текста полужирным начертанием
'убирает лишний пробел в конце выделения
If Selection.Type = wdSelectionIP Then
   MsgBox "Не выделен текст"
Else
   With Selection
      If Right(Selection.Text, 1) = Chr(32) Then
         .MoveLeft wdCharacter, 1, wdExtend
      End If
      .Font.Bold = True
   End With
End If
End Sub

Если вы используете свои стили для полужирного начертания, то измените строку кода ".Font.Bold = True" на строку ".Style = "ЖирнШрифт"", где в кавычках вставьте название вашего стиля полужирного начертания.

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса