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