'If ActiveDocument.Bookmarks.Exists("UnterschriftBLAS") = True Then
        'Selection.GoTo(What:=wdGoToBookmark, Name:="UnterschriftBLAS")
        'Selection.InlineShapes.AddPicture(FileName:="C:\blas.jpg")
        'End If

        'Unterschrift einfügen
        If doc.Bookmarks.Exists("Unterschr1Name") Then
            doc.Bookmarks.AddPicture(FileName:="C:\Test" & _
              "VB\KH-Desktop\Unterschriften\blas.jpg")
        End If