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

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看似没有响应，请大家耐心等待，直到显示提示消息框。