喜讯，WORD目录混乱的终结解决方案

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

 

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

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

 

 

    然后，点上面的运行，要过个好几秒钟的样子才能运行完，回去看看，好了。。。