WORD文档结构图混乱的解决方法

我这人有点龟毛，甚至是轻微的强迫症，见不得不整齐的东西。譬如word文档中混乱的结构图。

记得以前在用word2003的时候遇到过这个问题，现在用word2007时，又遇到了这个问题。

找了半天才找到这个宏，现记录如下：

--------------------------------

Sub ReSetOutline()
Dim myPara As Paragraph
For Each myPara In ActiveDocument.Paragraphs
myPara.OutlineLevel = myPara.style.ParagraphFormat.OutlineLevel
Next myPara
End Sub

---------------------------------

添加并运行，问题解决！