導言：有的時候我們可能在word中使用了多種字體，那麼現在我們想知道文檔中都用了哪些字體，現在我們有三種方法實現，即：

• PPT法
• vba法
• xml法

如下圖所示，該文檔有很多頁，我們如何快速知道有多少字體，好，我們進入正題，大家也可以結合《視頻》進行學習

我們把word中所有的文字全選（ctrl a），然後複制（ctrl c），打開ppt，在ppt中粘貼（ctrl v）

接下來，我們點擊替換右邊的下拉菜單，選擇替換字體

在這裡，我們可以看到有很多種字體，這些字體就是word中應用的所有字體，怎麼樣，簡潔方便吧。

我們在word中，同時按alt和f11進入vb編輯器，插入-模塊

在右側的代碼區域輸入下列代碼

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運行這個宏

等待片刻後，會生成一個新的文檔，在新的word文檔中，會列出剛才的word中使用的所有字體

其實word的docx文檔本質上都可以理解成壓縮包，因為Office2007之後，采用了OOXML（Office Open XML）格式，是當前國際文檔标準格式。

我們關閉word後，把這個word文檔解壓縮到當前文件夾

然後我們去到word文件夾，找到document.xml

我們用右鍵-打開方式-記事本，以記事本打開這個文件

接下來我們複制所有的内容到一個新的word中

然後我們打開查找替換，點擊查找，點擊更多，勾選使用通配符

查找：Asia="*"

點擊在以下項中查找，主文檔

如下圖所示，這一部分查找内容都已經被選中了

然後我們關閉查找，ctrl c複制當前選中的内容

打開excel，新建一個工作表，ctrl v粘貼剛才的内容，如下圖所示

我們選中A列，點擊數據-删除重複值

然後剩下的就是word中所使用的所有字體了

本文主要講解了如何知道某word文檔使用了哪些字體，方法很多，既可以wordvba操作，也可以結合ppt、excel的功能一起完成目的，我分享的方法一般你在其他地方找不到，所以當你刷到這篇文章，那麼說明你是憑你的實力刷到的。好了，今天的内容就到這裡了，如果覺得有所收獲的話，希望長按點贊、收藏、評論、轉發支持一下，你的支持對我很重要！

關注一閃流溢，每天都能get新技能！