Text durch gleichnamigen Bild ersetzen

[G.O.Tuhls]

Sorry, da muss noch die Selection gelöscht werden.

Code:

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

Gruß
G.O.