请教老师 文档结构图、正文的级别出现问题

求教下各位老师，
    我的一个word文档中正文内容变成了一级目录一样，在文档结构图中也是像一级目录一样在最左边。我重新设置好后，再次打开文档，这些修改好的地方又变乱了。有没有什么好办法解决啊？
    看到网上说有个编辑下面这个宏能解决，请问下怎么运行这个宏啊？我没用过宏，能否介绍仔细点？谢谢了~
Sub ReSetOutline()
Dim myPara As Paragraph
For Each myPara In ActiveDocument.Paragraphs
myPara.OutlineLevel = myPara.style.ParagraphFormat.OutlineLevel
Next myPara
End Sub

已经解决，用了上面的那个resetoutline的宏，再用个打开文档就调用resetoutline的宏，打开文档就不会出现问题了。但是打开时间超慢，我用的2007，先是显示打开文档读条中，再过会更改格式读条中，接着就是最长时间的运行宏，要2分钟。