Office-Fragen.de
Text durch gleichnamigen Bild ersetzen - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Word (https://office-fragen.de/forum-3.html)
+--- Thema: Text durch gleichnamigen Bild ersetzen (/thread-20025.html)

Text durch gleichnamigen Bild ersetzen - excelbexcel - 01.05.2021

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

RE: Text durch gleichnamigen Bild ersetzen - G.O.Tuhls - 01.05.2021

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.

RE: Text durch gleichnamigen Bild ersetzen - excelbexcel - 01.05.2021

Hallo, danke für deine Antwort.

Leider kommt dann folgende Fehlermeldung: Fehler! Unbekanntes Schalterargument.

Beste Grüße
ExcelBexcel

RE: Text durch gleichnamigen Bild ersetzen - G.O.Tuhls - 01.05.2021

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.

RE: Text durch gleichnamigen Bild ersetzen - Jackben67 - 23.06.2021

Hats dir geholfen? Bist du weiter gekommen?