Description: Cette macro en VisualBasic permet d'afficher dans Microsoft Word un caractère Unicode en en tapant le code numérique de quatre chiffres (p. ex. 0151 pour le "o" avec double accent aigu ou 266D pour le bémol) et en faisant aussitôt Alt+X (ou toute autre combinaison à laquelle on aura assigné; la macro). La touche de raccourci Alt+X, proposée dans Word sous Insertion | Caractères spéciaux | Symboles, ne fonctionne pas.

Auteur: Klaus Linke (reproduit dans le Guide des difficultés de rédaction en musique (GDRM) avec la permission de l'auteur)

Source: news://microsoft.public.word.printingfonts (27 août 2003), version archivée à <http://groups-beta.google.com/group/microsoft.public.word.printingfonts/msg/7135a5fb4c12fead>


Sub ToggleUnicode2000() 
  Dim sLike As String 
  sLike = "[0-9a-fA-F][0-9a-fA-F][0-9a-f­A-F][0-9a-fA-F]" 
  Dim sHexNumber As String 
  Dim rngHexNumber As Range 
  Selection.Collapse (wdCollapseEnd) 
  Set rngHexNumber = Selection.Range 
  rngHexNumber.Start = rngHexNumber.Start - 4 
  If rngHexNumber.Text Like sLike Then 
    rngHexNumber.Text = ChrW("&H" & rngHexNumber.Text) 
    rngHexNumber.Select 
  Else 
    rngHexNumber.Start = rngHexNumber.End - 1 
    sHexNumber = AscW(rngHexNumber.Text) 
    sHexNumber = Hex(sHexNumber And &HFFFF&) 
    While Len(sHexNumber) < 4 
      sHexNumber = "0" & sHexNumber 
    Wend 
    rngHexNumber.Text = sHexNumber 
    rngHexNumber.Select 
  End If 
End Sub