Font List with Examples using Word

VBA to create a new Word document with a list of Fonts installed in your version of Windows with an example of what characters look like in each font.

Download

Download this document with VBA code:
https://msaccessgurus.com/tool/Word_FontList.htm

To run:

Press Alt-F8 for macro list, choose aFONTLIST_s4p and then click Run

or go to the VBE, mod_Word_FONTLIST_s4p module, click in aFONTLIST_s4p and Run using F5, or from the Run menu.

Customize

The produre that does the heavy lifting is FontList_s4p_Word and has parameters. You can change parameters sent by aFONTLIST_s4p by changing code under CUSTOMIZE as desired.

If you choose a high ending point (nExampleEnd) instead of rendering for 0 (common keyboard), 1 (ASCII), or 2 (Extended ASCII), you may need to set bWatch to TRUE for better accuracy assigning the font (default is false since it takes more time to watch) although Word seems to substitute other fonts for certain points.

Enter ACSII or Unicode Character

To enter an ASCII or Unicode character using your keyboard:

Press and hold ALT while you type digits on numeric keypad and then let go

For Unicode decimal number instead of ASCII, pad beginning with 0 (zero) if number is less than 256 … so 128 is 0128
(Unicode characters are the same as ASCII to 127. Extended ASCII goes from 128 to 255 and Unicode points may not be defined in this range but if they are, they’re probably different depending on Font, such as trademark symbol ™ is defined in extended ASCII as 0153 but in Unicode it is 8482

Format for whatever Font

Characters

Here are some characters to try

Character	Alt+Number	Alt+Unicode
*	42	042
~	126	0126
°	248	0176
≈	247	8776
÷	246	0247
⯈	11208
⮞	11166
⮽	11197
⯕	11221
™	0153	8482

Hope you like this as much as I do!

kind regards,
crystal