（scala书籍编写）word 2007 目录格式乱的解决办法：编辑word 宏

word 2007 目录格式乱的解决办法：
 
1、按 Alt + F8，新建宏ReSetOutline
2、把下面代码拷进去：

Sub ReSetOutline()
'
' ReSetOutline Macro
'
'
Dim myPara As Paragraph
For Each myPara In ActiveDocument.Paragraphs
myPara.OutlineLevel = myPara.Style.ParagraphFormat.OutlineLevel
Next myPara

End Sub

3、宏应用于文档
4、更新目录域，格式ok