strReverce

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

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

    Рубрики: Макросы | Стили и форматирование
    Метки: |
    Дата: 13/11/2007 21:09:59

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

    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub reverse()
    'Замена выделенного фрагмента текста на его
    'зеркальное отображение
    Dim strStroka As String
    Dim strRev As String
       strStroka = Selection.Text
       strRev = strReverse(strStroka)
       Selection.Text = Replace(strStroka, strStroka, strRev)
    End Sub

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

     

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

    Обсудить (26)

контакты

 
^ Наверх