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

Источник: wordexpert
Антон Конкин

Начиная с версии 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

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


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=7920