Hi Dave,

Maybe there's a way using the Windows API for fonts...
But with Word VBA, I don't think there is a good solution.

IIRC, in Word2000, I found a trick: If you select a character that isn't in
the current font and open the "Insert > Symbol" dialog, you'll notice that
the top left character, the blank (ASCII 32), is selected. You can get that
info by displaying the dialog for a moment, and fetching it --  
Dialogs(wdDialogInsertSymbol).CharNum

In Word 2003, I can't get that to work: The dialog will return the real code
even if the character does not exist in the font.

Maybe you could just insert all 64000+ Unicode characters (without
supplementary planes) quickly with

Dim strFont As String
For i = 1 To &HFFFF&
  strFont = strFont & ChrW(i)
Next i
Selection.InsertAfter strFont

... and then delete the junk by hand?

Regards,
Klaus

You should look at www.unicode.org. In theory, a font can now have
*literally* millions of characters. None yet does, but there are quite a few
that get into the thousands. Do a Google for 'font file format' and
similar -- there are several freeware utilities around that read the nuts
and bolts of font files.