Attribute VB_Name = "NewMacros"
Sub AutoExec()
Attribute AutoExec.VB_Description = "Makro erstellt am 24.11.2004"
Attribute AutoExec.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.AutoExec"
'
' AutoExec Makro
'

End Sub
Sub hoch()
Attribute hoch.VB_Description = "Makro aufgezeichnet am 24.11.2004"
Attribute hoch.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.hoch"
'
' hoch Makro
'
    With Selection.Font
        .Superscript = True
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
End Sub
Sub tief()
Attribute tief.VB_Description = "Makro aufgezeichnet am 24.11.2004"
Attribute tief.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.tief"
'
' tief Makro
'
    With Selection.Font
        .Superscript = False
        .Subscript = True
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
End Sub
Sub normal()
Attribute normal.VB_Description = "Makro aufgezeichnet am 24.11.2004"
Attribute normal.VB_ProcData.VB_Invoke_Func = "normal.NewMacros.normal"
'
' normal Makro
'
    With Selection.Font
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
End Sub