Антон Конкин
Начиная с версии 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
Как использовать: выделите текст и выполните макрос.
Ссылки по теме