word目录混乱，调整好，关闭打开，目录再次混乱

貌似这个是微软的一个bug，据说是在word 2007 已经解决了，不过我的2007仍然是这样的，不知道是不是这个bug的原因，但是运行了下面的代码，确实问题解决了！

解决办法：

工具==>宏==>宏(Alt + F6)，把下面代码拷进去：

 

 

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