On tappe une composition de caractères (Ex: "E pour Ë) et l'on appuie sur une touche de raccourci (par exemple [F6]) à
laquelle on aura affecté la macro suivante :-----------------------------------------
Sub MajAccent
Selection.GoLeft(2, True)
Select Case ActiveWindow.SelectionTextExt
Case "\A": Selection.Insert("À")
Case "^A": Selection.Insert("Â")
Case "~A": Selection.Insert("Ã")
Case """A": Selection.Insert("Ä")
Case "AE": Selection.Insert("Æ")
Case "C,": Selection.Insert("Ç")
Case "\E": Selection.Insert("È")
Case "/E": Selection.Insert("É")
Case "^E": Selection.Insert("Ê")
Case """E": Selection.Insert("Ë")
Case "^I": Selection.Insert("Î")
Case """I": Selection.Insert("Ï")
Case "~N": Selection.Insert("Ñ")
Case "^O": Selection.Insert("Ô")
Case """O": Selection.Insert("Ö")
Case "\U": Selection.Insert("Ù")
Case "^U": Selection.Insert("Û")
Case """U": Selection.Insert("Ü")
End select
End Sub
-----------------------------------------
On peut ainsi définir toutes sortes de compositions pour toutes sortes de
caractères.