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

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

 

Java代码

1. Sub ReSetOutline()   
2. Dim myPara As Paragraph   
3. For Each myPara In ActiveDocument.Paragraphs   
4. myPara.OutlineLevel = myPara.style.ParagraphFormat.OutlineLevel   
5. Next myPara   
6. End Sub  

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

 

 

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