Text durch gleichnamigen Bild ersetzen

[G.O.Tuhls]

Versuch das mal.

Code:

Picname = Selection & ".png"
With Selection
        .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
        .TypeText Text:="IncludePicture """ & Picname & """ \* mergeformat"
        .Fields.Update
End With

Gruß
G. O.