Office-Fragen.de

Office-Fragen.de > Microsoft Office > Word > Text durch gleichnamigen Bild ersetzen
Normale Version: Text durch gleichnamigen Bild ersetzen
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

excelbexcel

01.05.2021, 15:53
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

01.05.2021, 16:46
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

01.05.2021, 17:06
Hallo, danke für deine Antwort.

Leider kommt dann folgende Fehlermeldung: Fehler! Unbekanntes Schalterargument.

Beste Grüße
ExcelBexcel

G.O.Tuhls

01.05.2021, 21:45
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

23.06.2021, 13:15
Hats dir geholfen? Bist du weiter gekommen?
Office-Fragen.de > Microsoft Office > Word > Text durch gleichnamigen Bild ersetzen