Cette macro retourne le code (ascii) du caractère sélectionné dans le document word actif. Si aucun caractère n'est sélectionné, c'est le code du caractère qui suit le point d'insertion qui est donné. Si vous avez sélectionné plusieurs caractères, c'est le code du premier caractère de la sélection qui est donné.

 

Sub montrerCodeCaractere()
    MsgBox AscW(Selection.Text)
End Sub