快速列出MS Word中所有可用字体

Word中有很多字体，虽然在字体下拉列表中提供了字体的样例，但是并不全面，例如使用Batang字体的话，数字会显示成什么效果，就无法直观的看到。

打开Word应用程序，新建一个空白文档，按Alt+F11打开VBE窗口，在代码窗口中写入如下代码。

Sub ListAllFontsUsedInWord()Application.ScreenUpdating = FalseDim vListFont As VariantWith ActiveDocument.CharactersFor Each vListFont In FontNamesWith .Last.Font.Name = vListFont.InsertAfter vListFont & Chr(11) & _"ABCDEFGHIJKLMNOPQRSTUVWXYZ ~!@#$%^&*()_+" & Chr(11) & _"abcdefghijklmnopqrstuvwxyz `1234567890-=" & vbCr & vbCrEnd WithNext vListFontEnd WithApplication.ScreenUpdating = TrueMsgBox "完成"
End Sub

【代码解析】
第2行代码禁用屏幕更新，加快代码执行速度。
第5行代码循环遍历FontNames对象集合。
第7行代码设置文档中最后一个字符的字体名称。
第8行代码插入示例字符，如果需要查看其他字符，请仔细修改代码。
第14行代码恢复屏幕更新。

运行实例代码，就可以在Word文档中查看每个字体具体样式了，如下图所示。
注意：由于字体个数较多（我的Word 365中有1353个字体），大家电脑处理能力不同，代码需要运行可能需要十几秒，期间Word看似没有响应，请大家耐心等待，直到显示提示消息框。