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