導言：有的時候我們可能在word中使用了多種字體，那麼現在我們想知道文檔中都用了哪些字體，現在我們有三種方法實現，即：
- PPT法
- vba法< /span>
- xml法
如下圖所示，該文檔有很多頁，我們如何快速知道有多少字體，好，我們進入正題，大家也可以結合《視頻》進行學習
方法一:PPT法
我們把word中所有的文字全選（ctrl+a），然後復制（ctrl+c），打開ppt，在ppt中粘貼（ctrl+v）
接下來，我們點擊替換右邊的下拉菜單，選擇替換字體
在這裡，我們可以看到有很多種字體，這些字體就是word中應用的所有字體，怎麼樣，簡潔方便吧。
方法二：vba法
我們在word中，同時按alt和f11進入vb編輯器，插入-模塊
在右側的代碼區域輸入下列代碼
Public Sub 列出所有字體_一閃流溢()
On Error Resume Next
Application.ScreenUpdating = 0
Dim 所有字體$
Set 文檔 = ActiveDocument
所有字體 = 獲得字體(文檔)
Documents.Add
ActiveDocument.Range.InsertBefore "一閃流溢提示您，剛才文檔中的字體有:" & vbLf & 所有字體< /span>
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中使用的所有字體
xml法
其實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新技能！
文章為用戶上傳，僅供非商業瀏覽。發布者：Lomu，轉轉請註明出處： https://www.daogebangong.com/zh-Hant/articles/detail/How%20to%20see%20which%20fonts%20are%20used%20in%20a%20word%20document%20tricks%20you%20cant%20search%20elsewhere.html
支付宝扫一扫 
评论列表（196条）
测试