Correct Teb Word Styles

Sub CorrectTebWordStyles()
'
' CorrectTebWord Macro
' Correct alignment, outline leves, paragraph behaviour and linespacin
' Macro recorded 6-10-2005 by BasO
'
  With ActiveDocument.Styles("Tebword_Heading 1").ParagraphFormat
    .Alignment = wdAlignParagraphLeft
    .WidowControl = True
    .KeepWithNext = True
    .KeepTogether = True
    .OutlineLevel = wdOutlineLevel1
    .LeftIndent = CentimetersToPoints(0)
    .FirstLineIndent = CentimetersToPoints(-1.2)
  End With
  With ActiveDocument.Styles("Tebword_Heading 2").ParagraphFormat
    .Alignment = wdAlignParagraphLeft
    .WidowControl = True
    .KeepWithNext = True
    .KeepTogether = True
    .OutlineLevel = wdOutlineLevel2
    .LeftIndent = CentimetersToPoints(0)
    .FirstLineIndent = CentimetersToPoints(-1.2)
  End With
  With ActiveDocument.Styles("Tebword_Heading 3").ParagraphFormat
    .Alignment = wdAlignParagraphLeft
    .WidowControl = True
    .KeepWithNext = True
    .KeepTogether = True
    .OutlineLevel = wdOutlineLevel3
    .LeftIndent = CentimetersToPoints(0)
    .FirstLineIndent = CentimetersToPoints(-1.2)
  End With
  With ActiveDocument.Styles("Tebword_Heading 4").ParagraphFormat
    .Alignment = wdAlignParagraphLeft
    .WidowControl = True
    .KeepWithNext = True
    .KeepTogether = True
    .OutlineLevel = wdOutlineLevel4
    .LeftIndent = CentimetersToPoints(0)
    .FirstLineIndent = CentimetersToPoints(-1.2)
  End With
  With ActiveDocument.Styles("Normal").ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(1.2)
    .Alignment = wdAlignParagraphLeft
    .WidowControl = True
    .KeepTogether = True
    .OutlineLevel = wdOutlineLevelBodyText
    .SpaceBefore = 6
  End With

'  ActiveDocument.Styles("Normal;Normal (blok 7)"). _
'    NoSpaceBetweenParagraphsOfSameStyle = False
'  With ActiveDocument.Styles("Normal")
'    .AutomaticallyUpdate = False
'    .BaseStyle = ""
'    .NextParagraphStyle = "Normal"
'  End With
End Sub