（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