Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Text durch gleichnamigen Bild ersetzen
#1
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
Zitieren
#2
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.
Zitieren
#3
Hallo, danke für deine Antwort.

Leider kommt dann folgende Fehlermeldung: Fehler! Unbekanntes Schalterargument.

Beste Grüße
ExcelBexcel
Zitieren
Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein völlig kostenloses und unverbindliches Angebot innerhalb weniger Stunden.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


#4
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.
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions