NightWing -

Thanks for the offer, but since the Unicode Atl-X in Word has been made into a toggle, it doesn't really seem worth messing with updating the macro, especially since Office updates make it really hard to get one onto a toolbar and make it work.

As a curiosity, the original Macro was from Win98 times. It "imported" okay into later Word but was never updated for the newer macro language. the "WordBasic." fragments were a "crossover" edit required to make the obsolete stuff work in a newer version.

Public Sub MAIN()
  Dim A$
  Dim CharValue
  A$ = WordBasic.[Selection$]()               '*A$=Highlighted text
  While Len(A$) >= 1               '* While the Length of A$ is
                                          '* greater than 1
  CharValue = Asc(A$)             '* the ANSI value of 1st character
  If Len(A$) > 1 Then              '* Reducing the length of A$
          A$ = Mid(A$, 2)        '* A$ = A$ minus the 1st character
  Else
          A$ = ""                   '* A$ = nothing
  End If
  WordBasic.MsgBox Chr(34) + Chr(CharValue) + Chr(34) + " ANSI val = " + Str(CharValue)         '* Display values in a message box
  Wend                                    '* end while loop
  End Sub

I really don't know who created it originally, but we got it during a "book processing" job that a friend at Microsoft was involved in. I assume he wrote it, although he may have picked it up from someone else there.

John