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

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

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

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

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

Sub ReSetOutline()Dim myPara As ParagraphFor Each myPara In ActiveDocument.ParagraphsmyPara.OutlineLevel = myPara.style.ParagraphFormat.OutlineLevelNext myParaEnd Sub

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

添加并运行，问题解决！