Форум по VBA и MS Office

Во время редактирования текста появилась такая необходимость: заменить выделенный символ
"э" на "е"
"ь" на "ъ"
"ц" на "н"
... и таких условий несколько.

Т.е. если выделенный символ это "э", то надо заменить его на "е", если "ь" на "ъ" и  т.д.
Желательно заменять с учетом регистра (но не обязательно).

Sub Макрос()

    Select Case Selection.Text
        Case "э"
            Selection.Text = "е"
        Case "ь"
            Selection.Text = "ъ"
        Case "ц"
            Selection.Text = "н"
    End Select

End Sub

Спасибо большое.