strReverce

strReverce

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

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

    Рубрики: Макросы | Стили и форматирование
    Метки: |
    Дата: 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

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

     

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

    /* 300x250, создано 13.04.11 гугл */
^ Наверх