Подписаться на эту метку по RSS

Зеркальное отображение текста

Рубрики: Макросы | Стили и форматирование
Метки: strReverce | макросы
Дата: 13/11/2007 21:09:59

Начиная с версии 6 в VBA появилась команда strReverce, предоставляющая возможность отзеркаливать символы. Например, слово ЖУК после выполнения следующего макроса будет выглядеть как КУЖ.

Sub reverse()
'Замена выделенного фрагмента текста на его 
'зеркальное отображение
Dim strStroka As String
Dim strRev As String
   strStroka = Selection.Text
   strRev = strReverse(strStroka)
   Selection.Text = Replace(strStroka, strStroka, strRev)
End Sub

Как использовать: выделите текст и выполните макрос.

 

Обновление: в комментариях приведен более продвинутый макрос для этого действия.

Обсудить (26)