樣式（style）是 Word 中用于快速更改文本格式的功能。將一種樣式應用于文檔中不同段落之后，只需更改一次該樣式，即可同時更改這些文本的格式。同時，樣式還能使文檔結構化，指定不同「標題」層次的樣式后，即可快速生成目錄。

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

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

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

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

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

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

   

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

    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. 點擊下方的「運行程序」按鈕，執(zhí)行上述命令；

   

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

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

   

B. 如果你使用 Windows 和 Office 2016

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

2. 按下 Alt + F11 組合鍵；

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

    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. 點擊上方工具欄中的「運行」按鈕，執(zhí)行上述命令；

   

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

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

   

備注

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

Facts for Nerds

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