Word中有很多字体，虽然在字体下拉列表中提供了字体的样例，但是并不全面，例如使用Batang字体的话，数字会显示成什么效果，就无法直观的看到。
打开Word应用程序，新建一个空白文档，按Alt+F11打开VBE窗口，在代码窗口中写入如下代码。
Sub ListAllFontsUsedInWord()
Application.ScreenUpdating = False
Dim vListFont As Variant
With ActiveDocument.Characters
For Each vListFont In FontNames
With .Last
.Font.Name = vListFont
.InsertAfter vListFont & Chr(11) & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ ~!@#$%^&*()_+" & Chr(11) & _
"abcdefghijklmnopqrstuvwxyz `1234567890-=" & vbCr & vbCr
End With
Next vListFont
End With
Application.ScreenUpdating = True
MsgBox "完成"
End Sub
【代码解析】
第2行代码禁用屏幕更新，加快代码执行速度。
第5行代码循环遍历FontNames对象集合。
第7行代码设置文档中最后一个字符的字体名称。
第8行代码插入示例字符，如果需要查看其他字符，请仔细修改代码。
第14行代码恢复屏幕更新。
运行实例代码，就可以在Word文档中查看每个字体具体样式了，如下图所示。
注意：由于字体个数较多（我的Word 365中有1353个字体），大家电脑处理能力不同，代码需要运行可能需要十几秒，期间Word看似没有响应，请大家耐心等待，直到显示提示消息框。