Text durch gleichnamigen Bild ersetzen

[excelbexcel]

Hallo,

ich bin auf der Suche nach einem VBA-Script, mit dem ich Texte in einem Word-Dokument alle vorhandenen Texte in ein Bild umwandeln kann.

___________________________________

Beispiel:
Obst
Apfel Birne Traube

Wird zu:
Obst
Apfel.png Birne.png Traube.png
______________________________________

könnt ihr mir dabei helfen?

Beste Grüße
ExcelBexcel

[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.

[excelbexcel]

Hallo, danke für deine Antwort.

Leider kommt dann folgende Fehlermeldung: Fehler! Unbekanntes Schalterargument.

Beste Grüße
ExcelBexcel

[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.

[Jackben67]

Hats dir geholfen? Bist du weiter gekommen?