樣式（style）是 Word 中用于快速更改文本格式的功能。將一種樣式應(yīng)用于文檔中不同段落之后，只需更改一次該樣式，即可同時(shí)更改這些文本的格式。同時(shí)，樣式還能使文檔結(jié)構(gòu)化，指定不同「標(biāo)題」層次的樣式后，即可快速生成目錄。

但樣式有時(shí)也會(huì)帶來麻煩。例如，需要將別人傳過來的多份 Word 文檔進(jìn)行整合、統(tǒng)一其格式時(shí)，他人文檔中預(yù)設(shè)的樣式可能會(huì)給排版造成混亂和不便。但是，如果一刀切地將其粘貼為純文本，不僅會(huì)丟失所有的格式，增加不必要的工作量，又會(huì)導(dǎo)致文本層級(jí)難以辨識(shí)。其實(shí)，利用 Office 中的 VBA 腳本，就能在移除樣式的同時(shí)保留文本格式。

下圖中，左側(cè)是使用粘貼為純文本方法所得結(jié)果，右側(cè)則是用 VBA 可以實(shí)現(xiàn)的效果，可以看出，原本的標(biāo)題樣式已經(jīng)被移除，但仍然保留了全部的格式設(shè)定：

具體的實(shí)現(xiàn)方法如下：

A. 如果你使用 macOS 和 Office 2016 for Mac

1. 正常使用樣式功能來編排文檔；

2. 依次點(diǎn)擊菜單中的「工具」–「宏」–「Visual Basic 編輯器…」；

   

3. 在彈出的窗口右側(cè)粘貼如下腳本：

    Sub DirectFormat()
        Dim para As Paragraph
        Dim fnt As Font
        Dim pfmt As ParagraphFormat
        For Each para In ActiveDocument.Paragraphs
            With para
                If .Style <> ActiveDocument.Styles("Normal") Then
                Set fnt = .Style.Font
                Set pfmt = .Style.ParagraphFormat
                .Style = ActiveDocument.Styles("Normal")
                .Range.Font = fnt
                .Range.ParagraphFormat = pfmt
                End If
            End With
        Next
    End Sub
   

4. 點(diǎn)擊下方的「運(yùn)行程序」按鈕，執(zhí)行上述命令；

   

5. 所有的樣式現(xiàn)在已經(jīng)被清除。

   要檢查是否運(yùn)行成功，在「主頁(yè)」選項(xiàng)卡中點(diǎn)擊打開「樣式面板」，然后試著在之前設(shè)置有樣式的段落中單擊。如果右側(cè)的樣式面板中始終顯示為「Normal」樣式，則表明已經(jīng)運(yùn)行成功。

   

B. 如果你使用 Windows 和 Office 2016

1. 正常使用樣式功能來編排文檔；

2. 按下 Alt + F11 組合鍵；

3. 在彈出的窗口中，雙擊左側(cè)的「ThisDocument」選項(xiàng)，并在右側(cè)彈出的空白窗口中粘貼如下腳本：

    Sub DirectFormat()
        Dim para As Paragraph
        Dim fnt As Font
        Dim pfmt As ParagraphFormat
        For Each para In ActiveDocument.Paragraphs
            With para
                If .Style <> ActiveDocument.Styles("Normal") Then            
                Set fnt = .Style.Font
                Set pfmt = .Style.ParagraphFormat
                .Style = ActiveDocument.Styles("Normal")
                .Range.Font = fnt
                .Range.ParagraphFormat = pfmt
                End If
            End With
        Next
    End Sub
   

4. 點(diǎn)擊上方工具欄中的「運(yùn)行」按鈕，執(zhí)行上述命令；

   

5. 所有的樣式現(xiàn)在已經(jīng)被清除。

   要檢查是否運(yùn)行成功，在「主頁(yè)」選項(xiàng)卡中，點(diǎn)擊「樣式」區(qū)域右下角的展開按鈕，展開樣式窗格，然后試著在之前設(shè)置有樣式的段落中單擊。如果右側(cè)的樣式窗格中始終顯示為「Normal」樣式，則表明已經(jīng)運(yùn)行成功。

   

備注

需要注意的是，如果你同時(shí)打開了多份 Word 文檔，那么在上述 VBA 編輯器的左側(cè)，也會(huì)出現(xiàn)多個(gè)文檔的選項(xiàng)。這種場(chǎng)合，請(qǐng)保證選中了 Project(需要去除樣式的文檔)-Microsoft Word Objects-ThisDocument 并使其高亮，然后再在右側(cè)粘貼并執(zhí)行代碼。

Facts for Nerds

上述命令的作用如下：遍歷文檔中所有段落并檢查其樣式，如果某一段落的樣式不是「Normal（正文）」，則記住其當(dāng)前格式設(shè)置，然后清除該段落的樣式，最后將先前記住的格式重新應(yīng)用到該段落上。