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

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

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

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

相关推荐
开开心心就好9 小时前
文档格式转换软件 一键Word转PDF
开发语言·前端·数据库·pdf·c#·word
新酱爱学习13 小时前
🚀 Web 字体裁剪优化实践:把 42MB 字体包瘦到 1.6MB
前端·javascript·字体
乘风归趣1 天前
spire.doc在word中生成公式
java·开发语言·word
爱转呼啦圈的小兔子1 天前
Mac中修改Word的Normal.dotm文件
macos·word
传奇开心果编程1 天前
【传奇开心果系列】Flet框架实现的图形化界面的PDF转word转换器办公小工具自定义模板
前端·python·学习·ui·前端框架·pdf·word
柴狗狗1 天前
poi生成word固定表格列宽
word
我命由我123454 天前
Excel 表格 - 合并单元格、清除单元格格式
运维·word·powerpoint·excel·工具·表格·软件工具
小付同学呀4 天前
word——如何给封面、目录、摘要、正文设置不同的页码
word
Quz4 天前
使用VBA宏批量修改Word中表格题注格式
word
PythonFun5 天前
基于Python的Word文件翻译器(免费下载)
word