清除除標題以外的所有樣式

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