Sub Unterschrift()
    '
    ' Unterschrift per Makro einsetzen
    '
        Dim img As InlineShape, shp As Shape, posImage As Range, posAbteilung _
          As Range
        Selection.GoTo wdGoToPage, wdGoToFirst
        With ActiveDocument.Content.Find
            .Text = "Mit freundlichen Grüßen"
            .Forward = True
            .Wrap = wdFindContinue
            .MatchWildcards = True
            .Execute
            If .Found Then
                .Parent.InsertParagraphAfter
                .Parent.InsertParagraphAfter
                Set posImage = .Parent.GoTo(wdGoToLine, wdGoToNext)
                Set img = posImage.InlineShapes.AddPicture( _
                  "C:\Users\name\Desktop\Unterschrift.jpg")
                Set shp = img.ConvertToShape
                With shp
                    .WrapFormat.Type = wdWrapTopBehind
                    .RelativeVerticalPosition = _
                      wdRelativeVerticalPositionParagraph
                End With
                Set posImAuftrag = posImage.GoTo(wdGoToLine, wdGoToNext)
                posImAuftrag.Text = "i. A."
                Set posAbteilung = posImAuftrag.GoTo(wdGoToLine, wdGoToNext)
                posAbteilung.Text = "Abteilungsname"
            End If
        End With
    End Sub