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

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

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

• Подписаться на рассылку " Windows и Office: новости и советы "
• Обратиться в «Интерфейс» за дополнительной информацией/по вопросу приобретения продуктов