簡(jiǎn)介：有時(shí)在word中使用了多種字體?，F(xiàn)在我想知道文檔中使用的字體?，F(xiàn)在可以通過(guò)三種方式實(shí)施。

PPT法VBA法XML法如下圖所示，該文件有多個(gè)頁(yè)面，可以快速知道有多少字體。好了，進(jìn)入正題?？梢院汀兑曨l》一起學(xué)習(xí)。

方法1 :PPT方法

選擇文字中的所有字符(ctrl a)，然后復(fù)制(ctrl c)、打開(kāi)PPT、粘貼到PPT(ctrl v)

接下來(lái)，單擊右側(cè)的“替換”下拉菜單以選擇替換字體

在這里，我們可以看到應(yīng)用于word的所有字體。怎么樣才能簡(jiǎn)潔方便？(大衛(wèi)亞設(shè))。

方法2: VBA方法

在Word中，同時(shí)按alt和F11進(jìn)入VB編輯器，插入-模塊。

在右側(cè)的“代碼”區(qū)域中輸入以下代碼

Public Sub列出了所有字體_閃存溢出()

On Error Resume Next

A=0

Dim所有字體$

Set文檔=ActiveDocument

所有字體=導(dǎo)入字體(文檔)

文件。

AC ' Flash溢出通知您文檔中的字體有：' vbLf的所有字體。

A=1

End Sub

導(dǎo)入專用功能字體(ByVal當(dāng)前文檔As Document) As String

Dim數(shù)量%、所有字體$、字體類(lèi)型$、段落As Paragraph、字母As Words

For Each段In當(dāng)前文檔。Paragraphs

For數(shù)量=1至段落。Range。c

字體類(lèi)型=段落。Range。Characters(數(shù)量)。Font。Name

If InStr(1，所有字體，字體類(lèi)型)=0 Then

所有字體=所有字體類(lèi)型vbLf

End If

next

next

獲取字體=所有字體

End Function

然后按F5鍵運(yùn)行，或關(guān)閉VB窗口，然后按alt F8鍵運(yùn)行宏

過(guò)了一會(huì)兒，將生成一個(gè)新文檔，其中列出了剛剛在word中使用的所有字體

d7ab614a51ec53ed5d2?from=article.detail&_iz=31825&index=6" width="607" height="503"/>

xml法

其實(shí)word的docx文檔本質(zhì)上都可以理解成壓縮包，因?yàn)镺ffice2007之后，采用了OOXML（Office Open XML）格式，是當(dāng)前國(guó)際文檔標(biāo)準(zhǔn)格式。

我們關(guān)閉word后，把這個(gè)word文檔解壓縮到當(dāng)前文件夾

然后我們?nèi)サ絯ord文件夾，找到document.xml

我們用右鍵-打開(kāi)方式-記事本，以記事本打開(kāi)這個(gè)文件

接下來(lái)我們復(fù)制所有的內(nèi)容到一個(gè)新的word中

然后我們打開(kāi)查找替換，點(diǎn)擊查找，點(diǎn)擊更多，勾選使用通配符

查找：Asia="*"

點(diǎn)擊在以下項(xiàng)中查找，主文檔

如下圖所示，這一部分查找內(nèi)容都已經(jīng)被選中了

然后我們關(guān)閉查找，ctrl+c復(fù)制當(dāng)前選中的內(nèi)容

打開(kāi)excel，新建一個(gè)工作表，ctrl+v粘貼剛才的內(nèi)容，如下圖所示

我們選中A列，點(diǎn)擊數(shù)據(jù)-刪除重復(fù)值

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

---

總結(jié)時(shí)間

本文主要講解了如何知道某word文檔使用了哪些字體，方法很多，既可以wordvba操作，也可以結(jié)合ppt、excel的功能一起完成目的，我分享的方法一般你在其他地方找不到，所以當(dāng)你刷到這篇文章，那么說(shuō)明你是憑你的實(shí)力刷到的。好了，今天的內(nèi)容就到這里了，如果覺(jué)得有所收獲的話，希望長(zhǎng)按點(diǎn)贊、收藏、評(píng)論、轉(zhuǎn)發(fā)支持一下，你的支持對(duì)我很重要！

關(guān)注一閃流溢，每天都能get新技能！