Unterschrift in Textdokumente einbinden

Müssen Ihre mit Word erzeugten Dokumente signiert weitergeleitet werden, kann man sich das Unterschreiben jedes einzelnen Briefes ersparen, wenn Sie Ihre eingescannte Unterschrift über das Menü Einfügen | Grafik | Aus Datei... als Bildobjekt in den Text einbinden. Noch schneller und bequemer geht es jedoch, wenn Sie statt dessen das abgedruckte Makro erzeugen und ihm eine Schaltfläche zuweisen.

Beachten Sie dabei bitte, dass Sie in der Zeile Active.Document... hinter FileName:= den richtigen Pfad und Dateinamen für Ihre Bilddatei, die die eingescannte Unterschrift enthält, eingeben müssen. Möchten Sie Ihre Unterschrift als verknüpftes Bildobjekt in Ihre Dokumente einbetten, schreiben Sie hinter LinkToFile:= nicht False sondern True. Wenn das Speichern dieses Objekts zusammen mit dem Text unerwünscht ist, um etwa die Größe der Datei zu reduzieren, muss man nach SaveWithDocument:= das Wort False eingeben.

Makro zum Einfügen der Unterschrift:

Sub Unterschrift()
  Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
  ActiveDocument.Shapes.AddPicture Anchor:=Selection.Range, _
    FileName:="D:\signatur.jpg", LinkToFile:=False, SaveWithDocument:=True
End Sub

Eine andere Lösung aus www.office-loesung.de (von HermannL) für Word 2000:

Sub Unterschrift() 
  Selection.EndKey Unit:=wdStory 
  Selection.TypeParagraph 
  Selection.InlineShapes.AddPicture FileName:="D:\DeinPfad\Deine_Unterschrift.jpg", _
    LinkToFile:=False, SaveWithDocument:=True 
End Sub