解决Word2007文档结构图错乱的问题

使用不同版本的word文档，使用2007打开的时候会出现文档结构图错乱

打开word2007视图，宏

新增一个宏，内容如 ：

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