Sub надчёркивание_мал()
'
' надчёркивание_мал Макрос
' Надчёркивание строчных букв (символ TransRoman #92 дес.).
' Макрос записан 09.01.2005 Владимир Чупин
'
    Selection.InsertSymbol Font:="TransRoman", CharacterNumber:=-4004, Unicode _
        :=True
End Sub

Sub надчёркивание_бол()
'
' надчёркивание_бол Макрос
' Надчёркивание прописных (символ TransRoman #124 дес.).
'
    Selection.InsertSymbol Font:="TransRoman", CharacterNumber:=-3972, Unicode _
        :=True
End Sub

Sub точка_под()
'
' точка_под Макрос
' Выставление точки под буквой (символ TransRoman #179 дес.).
'
    Selection.InsertSymbol Font:="TransRoman", CharacterNumber:=-3917, Unicode _
        :=True
End Sub

Sub полумесяц_под()
'
' полумесяц_под Макрос
' Вставка полумесяца под буквой (символ TransRoman #199 дес.).
'
    Selection.InsertSymbol Font:="TransRoman", CharacterNumber:=-3897, Unicode _
        :=True
End Sub