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

相关推荐
玩泥巴的19 小时前
.NET驾驭Word之力:数据驱动文档 - 邮件合并与自定义数据填充完全指南
c#·word·.net·com互操作
揭老师高效办公3 天前
Word和WPS文字如何从特定的页开始编号(页码)?
word·wps
secondyoung3 天前
Markdown转换为Word:Pandoc模板使用指南
开发语言·经验分享·笔记·c#·编辑器·word·markdown
广都--编程每日问4 天前
deepseek 的对话json导出成word和pdf
pdf·json·word·deepseek·exprot
疯癫的老码农4 天前
【word解析】从OLE到OMML:公式格式转换的挑战与解决方案
java·spring boot·spring·word
睿思达DBA_WGX4 天前
使用 python-docx 库操作 word 文档(1):文件操作
开发语言·python·word
专注VB编程开发20年5 天前
VB6.0找不到该引用word,excel“Microsoft Excel 16.0 Object Library”解决方法
word·excel·vba·vsto
揭老师高效办公6 天前
Word和WPS文字表格内的文字无法垂直居中?这样设置
word·wps
孤客网络科技工作室6 天前
Python - 100天从新手到大师:第二十六天Python操作Word和PowerPoint文件
python·word·powerpoint
【ql君】qlexcel6 天前
wps word添加水印
word·wps·水印·图片水印·多行水印