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

相关推荐
铭....2 天前
word批量导出visio图
开发语言·c#·word
CodeCraft Studio3 天前
国产化Word处理控件Spire.Doc教程:通过Java简单快速的将 HTML 转换为 PDF
java·html·word
碧海蓝天go星辰大海3 天前
word为跨页表格新加表头和表名
word
进阶的小木桩3 天前
C# 导出word 插入公式问题
开发语言·c#·word
碧海蓝天go星辰大海3 天前
word添加页眉
word
Dontla3 天前
word文档格式规范(论文格式规范、word格式、论文格式、文章格式、格式prompt)
prompt·word
八饱粥3 天前
word中表格拉不动以及插入图片有间距
word
我有一棵树3 天前
【AI工具应用】使用 trae 实现 word 转成 html
word
开开心心就好4 天前
能按需拆分 PDF 为多个文档的工具
javascript·python·智能手机·django·pdf·word·excel
VBAMatrix4 天前
审计报告附注救星!实现Word表格纵向求和+横向计算及其对应的智能校验
word·核对数据·审计报告·审计·附注