Оформление по выделению

[vens2962]

Здравствуйте всем.
Прошу помощи с макросом для ворда.
Функционал следующий: нужно выделенный текстовый фрагмент (слово, несколько слов, отдельный символ) оформить звездочками, в начале и в конце.

Вот так:

*пример*

При этом нужно учесть пробелы — если они попали в выделение, их надо за оформление вынести — т.е. не так:

Здрасти, я *ваша *тетя.

А вот так:

Здрасти, я *ваша* тетя.

Используется ворд 2007, если это важно.
Заранее спасибо.

[vens2962]

http://wordexpert.ru/page/obramlyaem...tekst-skobkami
Вот тут решена сходная проблема, минимум коррекции и макрос готов.

Sub InsParens()
If Right(Selection.Text, 1) = Chr(32) Or _
   Right(Selection.Text, 1) = Chr(13) Then
   Selection.MoveLeft wdCharacter, 1, wdExtend
End If
With Selection
   .InsertBefore "*"
   .InsertAfter "*"
End With
End Sub

Вопрос закрыт.