Word Verlinkte Bilder in Vorlage

Hallo Community,

folgendes Szenario:

Unsere Kunden arbeiten mit einer Software, welche eine Word Schnittstelle besitzt. Darüber können sie im Word Vorlagen definieren; Diese werden im Vorlagenformat dot abgespeichert.

Nun können Sie einen Brief aus dieser Vorlagendatei generieren, welcher als doc abgespeichert wird.

Soweit so gut.


Bei einigen Kunden ist es aber so, dass sich im Briefkopf relativ häufig die notwendigen Daten ändern. Meist haben auch diese Kunden weit über 100 Briefvorlagen; Sodass bei einer Änderung, der Kunde (oder wir) gezwungen sind, alle Vorlagen zu öffnen, und diese Änderung in jeder einzelnen Vorlage durchzuführen.


Unser Gedanke sprang darauf hin zu der Überlegung, anstatt den Briefkopf in Textform zu schreiben, könnte man doch einfach den Briefkopf als Bilddatei ins Word verlinken. Sodass bei einer Änderung, lediglich die Bilddatei geändert wird, und schwupps, passt es auf allen neuen Briefen.


Die Geschichte hat aber leider einen Haken:
Es ist erforderlich, dass wenn sie Briefe von beispielsweise vor 2 Jahren aufrufen, dieser genauso aussehen muss, wie von vor 2 Jahren. Es darf also nicht der neue geänderte Briefkopf drauf stehen, sondern der Alte.


Meine Frage also, bietet Word eine Möglichkeit, in einer Vorlage die Bilddatei als Verlinkung zu hinterlegen, sobald aber daraus dann der eigentliche Brief generiert wird, dieses Bild direkt ins Dokument reinkopiert wird? Also nicht mehr als Verlinkung, sondern vollständig rein?


Die Option, die Briefe einfach als PDF o. Ä abzuspeichern fällt auf Grund der Schnittstelle zwischen Word und dem Programm flach.


Hat jemand eine Idee?

Vielen Dank vorab und beste Grüße,

Option Explicit
Sub insertimage() ' aber in Deinem Fall in die autoopen mit selektorbox zum einmaligen Auswählen...  

Dim bildchen As InlineShape
Dim ausrichtung As Shape

Set bildchen = Selection.InlineShapes.AddPicture(FileName:="\\server\bildvorlagen\bild.ext", LinkToFile:=False, SaveWithDocument:=True)  
Set ausrichtung = bildchen.ConvertToShape

With ausrichtung
    ausrichtung.WrapFormat.Type = wdWrapBehind
    ausrichtung.Top = 50
    ausrichtung.Left = 150
    ausrichtung.LockAspectRatio = msoTrue
    ausrichtung.Height = 80
End With

End Sub