Sub amacron()
    Selection.TypeText Text:=ChrW(&H101)
End Sub
Sub amacronuc()
    Selection.TypeText Text:=ChrW(&H100)
End Sub
Sub imacron()
    Selection.TypeText Text:=ChrW(&H12B)
End Sub
Sub imacronuc()
    Selection.TypeText Text:=ChrW(&H12A)
End Sub
Sub umacron()
    Selection.TypeText Text:=ChrW(&H16B)
End Sub
Sub umacronuc()
    Selection.TypeText Text:=ChrW(&H16A)
End Sub
Sub runderd()
    Selection.TypeText Text:=ChrW(&H1E5B)
End Sub
Sub runderduc()
    Selection.TypeText Text:=ChrW(&H1E5A)
End Sub
Sub lunderd()
    Selection.TypeText Text:=ChrW(&H1E37)
End Sub
Sub lunderduc()
    Selection.TypeText Text:=ChrW(&H1E36)
End Sub
Sub hunderd()
    Selection.TypeText Text:=ChrW(&H1E25)
End Sub
Sub hunderduc()
    Selection.TypeText Text:=ChrW(&H1E24)
End Sub
Sub munderd()
    Selection.TypeText Text:=ChrW(&H1E43)
End Sub
Sub munderduc()
    Selection.TypeText Text:=ChrW(&H1E42)
End Sub
Sub noverd()
    Selection.TypeText Text:=ChrW(&H1E45)
End Sub
Sub noverduc()
    Selection.TypeText Text:=ChrW(&H1E44)
End Sub
Sub ntilde()
    Selection.TypeText Text:=ChrW(&HF1)
End Sub
Sub ntildeuc()
    Selection.TypeText Text:=ChrW(&HD1)
End Sub
Sub tunderd()
    Selection.TypeText Text:=ChrW(&H1E6D)
End Sub
Sub tunderduc()
    Selection.TypeText Text:=ChrW(&H1E6C)
End Sub
Sub dunderd()
    Selection.TypeText Text:=ChrW(&H1E0D)
End Sub
Sub dunderduc()
    Selection.TypeText Text:=ChrW(&H1E0C)
End Sub
Sub nunderd()
    Selection.TypeText Text:=ChrW(&H1E47)
End Sub
Sub nunderduc()
    Selection.TypeText Text:=ChrW(&H1E46)
End Sub
Sub sacute()
    Selection.TypeText Text:=ChrW(&H15B)
End Sub
Sub sacuteuc()
    Selection.TypeText Text:=ChrW(&H15A)
End Sub
Sub sunderd()
    Selection.TypeText Text:=ChrW(&H1E63)
End Sub
Sub sunderduc()
    Selection.TypeText Text:=ChrW(&H1E62)
End Sub
Sub acute()
    Selection.TypeText Text:=ChrW(&H301)
End Sub
Sub grave()
    Selection.TypeText Text:=ChrW(&H300)
End Sub
Sub circumflex()
    Selection.TypeText Text:=ChrW(&H302)
End Sub
Sub cedilla()
    Selection.TypeText Text:=ChrW(&H327)
End Sub
Sub umlaut()
    Selection.TypeText Text:=ChrW(&H308)
End Sub
Sub tilde()
    Selection.TypeText Text:=ChrW(&H303)
End Sub
Sub macron()
    Selection.TypeText Text:=ChrW(&H304)
End Sub
Sub underdot()
    Selection.TypeText Text:=ChrW(&H323)
End Sub
Sub overdot()
    Selection.TypeText Text:=ChrW(&H307)
End Sub
Sub underring()
    Selection.TypeText Text:=ChrW(&H325)
End Sub
Sub candrabindu()
    Selection.TypeText Text:=ChrW(&H310)
End Sub
