Attribute VB_Name = "NewMacros"
Sub Unterschrift_User()
'
' Unterschrift_User Makro
' fügt die Unterschrift des User in das aktuelle Dokument ein
' erstellt am 14.01.1999 von:
'	Heiko Teichmeier
'	heiko@tei-lin-net.de
'
    Dim U_User As Shape
    
    With ActiveDocument
        Set U_User = .Shapes.AddPicture(Anchor:= _
        Selection.Range, FileName:="N:\Vorlagen\U_User.tif", _
        LinkToFile:=False, SaveWithDocument:=True)
        With U_User
            .ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        End With
    End With
End Sub
Sub U_ia_User()
'
' U_schrift_ia Makro
' fügt die Unterschrift "i.A. User" in das aktuelle Dokument ein
' erstellt am 14.01.1999 von:
'	Heiko Teichmeier
'	heiko@tei-lin-net.de
'
    Dim U_ia_User As Shape
    
    With ActiveDocument
        Set U_ia_User = .Shapes.AddPicture(Anchor:= _
        Selection.Range, FileName:="N:\Vorlagen\U_ia_User.tif", _
        LinkToFile:=False, SaveWithDocument:=True)
        With U_ia_User
            .ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        End With
    End With
End Sub