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

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

添加並運行，問題解決！