清除除宏标题之外的所有样式

Question

我想编写一个宏来删除文档中除标题之外的所有样式 我有这个宏删除所有样式：

Sub clearstyle()
    ActiveDocument.Select
    Selection.ClearFormatting
end Sub

如何改进此选项以仅保留标题样式？

Answer 1

这样的事情应该有效：

For Each p In ActiveDocument.Paragraphs
  If Left(p.Style, 7) <> "Heading" Then
    p.Range.Select
    Selection.ClearFormatting
  End If
Next