在移除 Word 文档样式的同时保留格式

fjgsd 2017-04-21

展开全文

有时，我们需要将他人传过来的多份 Word 文档进行整合。这种情况下，他人文档中预设的样式可能会给排版造成不便。但是，如果一刀切地将其粘贴为纯文本，又会导致文本层级难以辨识。本文介绍一种利用 Office 中的 VBA 脚本，在移除样式的同时保留文本格式的方法。

A. 如果你使用 macOS 和 Office 2016 for Mac正常使用样式功能来编排文档；依次点击菜单中的「工具」–「宏」–「Visual Basic 编辑器…」；

在移除 Word 文档样式的同时保留格式

在弹出的窗口右侧粘贴如下脚本：

点击下方的「运行程序」按钮，执行上述命令；

在移除 Word 文档样式的同时保留格式

所有的样式现在已经被清除。

要检查是否运行成功，在「主页」选项卡中点击打开「样式面板」，然后试着在之前设置有样式的段落中单击。如果右侧的样式面板中始终显示为「Normal」样式，则表明已经运行成功。

在移除 Word 文档样式的同时保留格式

B. 如果你使用 Windows 和 Office 2016正常使用样式功能来编排文档；按下 Alt F11 组合键；在弹出的窗口中，双击左侧的「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

点击上方工具栏中的「运行」按钮，执行上述命令；

在移除 Word 文档样式的同时保留格式