Все сообщения пользователя: Johnny

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

Макрос выглядит так:

Sub MAIN()
'

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

End Sub

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