![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/b83ce020-a5f6-4749-8a53-82f71c720b97.jpg)
导言:有的时候我们可能在word中使用了多种字体,那么现在我们想知道文档中都用了哪些字体,现在我们有三种方法实现,即:
- PPT法
- vba法
- xml法
如下图所示,该文档有很多页,我们如何快速知道有多少字体,好,我们进入正题,大家也可以结合《视频》进行学习
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/468ca8e5-7f3d-4a86-924d-ac1cda398bdf.jpg)
方法一:PPT法
我们把word中所有的文字全选(ctrl+a),然后复制(ctrl+c),打开ppt,在ppt中粘贴(ctrl+v)
接下来,我们点击替换右边的下拉菜单,选择替换字体
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/6b2cc092-dc88-447f-98fc-bb27ac48db92.jpg)
在这里,我们可以看到有很多种字体,这些字体就是word中应用的所有字体,怎么样,简洁方便吧。
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/96a9ec7c-dd94-4e34-b88b-d520056e3a1b.jpg)
方法二:vba法
我们在word中,同时按alt和f11进入vb编辑器,插入-模块
在右侧的代码区域输入下列代码
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/64209039-24a0-4518-9951-6c9a45d093f9.jpg)
Public Sub 列出所有字体_一闪流溢()
On Error Resume Next
Application.ScreenUpdating = 0
Dim 所有字体$
Set 文档 = ActiveDocument
所有字体 = 获得字体(文档)
Documents.Add
ActiveDocument.Range.InsertBefore "一闪流溢提示您,刚才文档中的字体有:" & vbLf & 所有字体
Application.ScreenUpdating = 1
End Sub
Private Function 获得字体(ByVal 当前文档 As Document) As String
Dim 数量%, 所有字体$, 字体类型$, 段落 As Paragraph, 字符 As Words
For Each 段落 In 当前文档.Paragraphs
For 数量 = 1 To 段落.Range.Characters.Count
字体类型 = 段落.Range.Characters(数量).Font.Name
If InStr(1, 所有字体, 字体类型) = 0 Then
所有字体 = 所有字体 & 字体类型 & vbLf
End If
Next
Next
获得字体 = 所有字体
End Function
接下来按F5运行,或者关闭vb窗口后,按alt+f8运行这个宏
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/71fae611-6ddb-4213-a6de-2ecce11896e7.jpg)
等待片刻后,会生成一个新的文档,在新的word文档中,会列出刚才的word中使用的所有字体
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/44d870b9-a493-4d80-a003-5c737d337551.jpg)
xml法
其实word的docx文档本质上都可以理解成压缩包,因为Office2007之后,采用了OOXML(Office Open XML)格式,是当前国际文档标准格式。
我们关闭word后,把这个word文档解压缩到当前文件夹
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/9299f14d-52dd-4a80-b9cf-3ee3c9c6dda7.jpg)
然后我们去到word文件夹,找到document.xml
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/6bf75c52-089e-4aee-b1a2-12c27060cb4b.jpg)
我们用右键-打开方式-记事本,以记事本打开这个文件
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/ff48f69d-328c-4224-9ab8-d54e66948e7a.jpg)
接下来我们复制所有的内容到一个新的word中
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/9b8e28a4-6aaf-4572-9476-ab85ae834943.jpg)
然后我们打开查找替换,点击查找,点击更多,勾选使用通配符
查找:Asia="*"
点击在以下项中查找,主文档
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/54ba1f62-46b6-4dd7-83e4-8d1d4439586e.jpg)
如下图所示,这一部分查找内容都已经被选中了
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/9a0f249e-441f-4a88-9fb4-87b79da9ab24.jpg)
然后我们关闭查找,ctrl+c复制当前选中的内容
打开excel,新建一个工作表,ctrl+v粘贴刚才的内容,如下图所示
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/8a7e5a60-331c-49a7-9079-dae135a861d2.jpg)
我们选中A列,点击数据-删除重复值
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/98e385a8-4aec-43c4-8857-a7d3c8d67ad7.jpg)
然后剩下的就是word中所使用的所有字体了
![](http://daogezhiyuan-article.oss-cn-beijing.aliyuncs.com/win3000/pic/d4d7bf4a-3561-4aa3-a4ac-599d017272a8.jpg)
总结时间
本文主要讲解了如何知道某word文档使用了哪些字体,方法很多,既可以wordvba操作,也可以结合ppt、excel的功能一起完成目的,我分享的方法一般你在其他地方找不到,所以当你刷到这篇文章,那么说明你是凭你的实力刷到的。好了,今天的内容就到这里了,如果觉得有所收获的话,希望长按点赞、收藏、评论、转发支持一下,你的支持对我很重要!
关注一闪流溢,每天都能get新技能!
文章为用户上传,仅供非商业浏览。发布者:Lomu,转转请注明出处: https://www.daogebangong.com/articles/detail/How%20to%20see%20which%20fonts%20are%20used%20in%20a%20word%20document%20tricks%20you%20cant%20search%20elsewhere.html
评论列表(196条)
测试