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

相关推荐
儒雅永缘1 天前
VBA实现word文档批量转PDF文件
pdf·c#·word
月阳羊2 天前
【论文学习与撰写】Mathtype的安装与word插件安装
学习·word
开开心心就好3 天前
Word转PDF工具,免费生成图片型文档
前端·网络·笔记·pdf·word·powerpoint·excel
艺杯羹3 天前
解决 Word四大烦:消标记、去波浪线、关首字母大写、禁中文引号
word·文档·1024程序员节·word技巧
程序员陆通4 天前
Cursor配置markdown转Word的MCP工具教程
word
shandianchengzi4 天前
【经验】Word/WPS|用邮件合并批量填写表格或教案,单个Word导出成多个文件
word·wps·邮件·办公·邮件合并
zstar-_4 天前
FreeP2W:一个PDF转Word的CLI工具
pdf·word
JXL18604 天前
CS224N-Lecture01-Word Vectors
nlp·word
非专业程序员Ping5 天前
HarfBuzz概览
android·ios·swift·font