|
有時，我們需要將他人傳過來的多份 Word 文檔進行整合。這種情況下，他人文檔中預(yù)設(shè)的樣式可能會給排版造成不便。但是，如果一刀切地將其粘貼為純文本，又會導致文本層級難以辨識。本文介紹一種利用 Office 中的 VBA 腳本，在移除樣式的同時保留文本格式的方法。 A. 如果你使用 macOS 和 Office 2016 for Mac正常使用樣式功能來編排文檔； 依次點擊菜單中的「工具」–「宏」–「Visual Basic 編輯器…」；在彈出的窗口右側(cè)粘貼如下腳本： 點擊下方的「運行程序」按鈕，執(zhí)行上述命令； 所有的樣式現(xiàn)在已經(jīng)被清除。 要檢查是否運行成功，在「主頁」選項卡中點擊打開「樣式面板」，然后試著在之前設(shè)置有樣式的段落中單擊。如果右側(cè)的樣式面板中始終顯示為「Normal」樣式，則表明已經(jīng)運行成功。 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
點擊上方工具欄中的「運行」按鈕，執(zhí)行上述命令； 所有的樣式現(xiàn)在已經(jīng)被清除。 要檢查是否運行成功，在「主頁」選項卡中，點擊「樣式」區(qū)域右下角的展開按鈕，展開樣式窗格，然后試著在之前設(shè)置有樣式的段落中單擊。如果右側(cè)的樣式窗格中始終顯示為「Normal」樣式，則表明已經(jīng)運行成功。 上述命令的作用如下：遍歷文檔中所有段落并檢查其樣式，如果某一段落的樣式不是「Normal（正文）」，則記住其當前格式設(shè)置，然后清除該段落的樣式，最后將先前記住的格式重新應(yīng)用到該段落上。 |
|
|
