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

相关推荐
CodeCraft Studio18 小时前
国产化Word处理控件Spire.Doc教程:Python提取Word文档中的文本、图片、表格等
python·c#·word·国产化·spire.doc·word文档处理·文档开发控件
kevin 13 天前
AI文档比对和Word的“比较”功能有什么区别?
人工智能·word
winfredzhang3 天前
Windows字体simsum.ttf的安装与Python路径设置指南
windows·字体·simsun·fontforge
揭老师高效办公3 天前
用键盘快速移动Word和WPS文字中的选中段落
word·wps文字
北极糊的狐3 天前
Word图片被识别成目录
word
_oP_i4 天前
word中rtf格式介绍
word
2301_787725654 天前
Word 转 HTML API 接口
word
E_ICEBLUE4 天前
Python 操作 Word 文档:主流库对比与选择指南
开发语言·经验分享·python·word·办公自动化
揭老师高效办公5 天前
在Word和WPS文字中把全角数字全部改为半角
word·wps文字
揭老师高效办公5 天前
快速删除Word和WPS文字中的空白行
word·wps