Sub LevelOne()
'
' LevelOne Macro
' Macro recorded 5/13/2003 by John Faughnan
'
    SelectLine
    OutlineSpacing (10)
    With Selection.ParagraphFormat
        .OutlineLevel = wdOutlineLevel1
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
End Sub
Sub LevelTwo()
'
' LevelTwo Macro
' Macro recorded 5/13/2003 by John Faughnan
'
    SelectLine
    OutlineSpacing (5)
    With Selection.ParagraphFormat
        .OutlineLevel = wdOutlineLevel2
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With


End Sub
Sub LevelThree()
'
' LevelThree Macro
' Macro recorded 5/13/2003 by John Faughnan
'
    SelectLine
    OutlineSpacing (5)
    With Selection.ParagraphFormat
        .OutlineLevel = wdOutlineLevel3
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Bold = False
        .Italic = True
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
End Sub
Sub LevelZero()
'
' LevelZero Macro
' Macro recorded 5/13/2003 by John Faughnan
'
    SelectLine
    With Selection.ParagraphFormat
        .OutlineLevel = wdOutlineLevelBodyText
    End With
    Selection.ClearFormatting
End Sub
Sub SelectLine()
'
' SelectLine Macro
' Macro recorded 5/15/2003 by John Faughnan
' Edited 5/28 so this is really a paragraph selection
'
'   Selection.MoveUp Unit:=wdParagraph, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
End Sub
Sub OutlineSpacing(n)
'
' OutlineSpacing Macro
' Macro recorded 5/15/2003 by John Faughnan
'
    With Selection.ParagraphFormat
        .SpaceBefore = PixelsToPoints(n)
        .SpaceBeforeAuto = False
        .SpaceAfter = PixelsToPoints(n)
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = True
    End With
End Sub