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

相关推荐
开开心心就好5 小时前
高效批量转换Word到PDF的方法
javascript·安全·智能手机·pdf·word·objective-c·lisp
response_L6 小时前
麒麟v10、uos系统在线批量生成pdf文件
java·pdf·word·pageoffice·在线编辑
清风细雨_林木木1 天前
私有 Word 文件预览转 PDF 实现方案
pdf·word
一只秋田犬1 天前
基于 Apache POI 实现的 Word 操作工具类
word
清风细雨_林木木2 天前
.docx 和 .doc 都是 Word 文档格式的区别
word
r i c k2 天前
邮件合并----批量从excel表中导出数据到word中
word·excel
yivifu3 天前
利用VBA将Word文档修改为符合EPUB3标准规范的HTML文件
word·vba·epub
流浪猪头拯救地球3 天前
WPS 和 office (word/excel/ppt) 找到模板所在位置以及更改模板的方式(公文写作格式要求、字体安装、模板下载)
word·excel·wps
2501_920552563 天前
Mac电脑 Office 2024 LTSC 长期支持版(Excel、Word、PPT)
macos·word·powerpoint·excel·mac
Study_Live_Sun5 天前
vue3中,markdown转html,再导出成为word文件
前端·html·word