Office: (Office 2019) Textformatierung konvertieren in Text mit HTML-Markups

Hallo zusammen,
folgendes bekomme ich nicht hin:

Ich möchte einen Text einer Zelle inkl. Formatierung (Fett, Unterstrichen, Kursiv, Schriftgröße, Schriftart etc.) in ein Rich-Text Feld einer Access-Datenbank übertragen. Dazu müsste der Text mit HTML-Markups versehen werden, damit Access die Formatierung wieder richtig darstellt.
Siehe dazu: https://stackoverflow.com/questions/7228259/access-rich-text-which-subset-of-html-is-supported#:~:text=Microsoft%20Access%20text%20boxes%20can,text%22%20is%20stored% 20as%20HTML.

Meine Überlegungen:
Auslesen des Zellinhaltes mittels Range.Value(Datatype 11 oder 12) dann erhält man den Text in einem XML-Format, dass dann wiederum irgendwie zu einem Text mit HTML-Markups konvertiert werden müsste.
Siehe: https://docs.microsoft.com/en-us/off...evaluedatatype

Oder:
durchsuchen des Zelltextes mit Range.Find Methode, einsetzen von HTML-Markups.
Da bin ich mir nicht sicher ob das funktioniert. Speziell wenn gleichzeitig mehrere Formatierungen vorhanden sind. (zB Fett & Kursiv)

Oder:
Eigene Funktion bauen, jeden Buchstaben des Zelltextes auf die Formatierung abfragen, Buchstaben mit gleichen Formatierungen zu Gruppen zusammenfassen, HTML-Markups zu diesen Gruppen setzen.

Was meint ihr? Gibt es ev. noch andere Ansätze?

:)

 

Hallo Ritchie,

wenn es um die Umsetzung von Zellen bzgl. der Schrift und der Hintergrundfarbe in HTML-Tags geht, kann ich Dir u.a. Makro anbieten.
Dieses setze ich normalerweise in HTML-eMails ein, es kann Dir ggf. auch bei Deiner Aufgabe helfen.

Wenn es mehr sein soll, also z.B. auch Umrandungen usw. und ganze Bereiche bietet sich ggf. Range2HTML an. Da habe ich etwas oder man findet diverse Versionen im Internet. Das funktioniert dann über die Erstellung einer temporären Datei.

Code:


[+][-]

____________
viele Grüße
Karl-Heinz

 

Hallo Karl-Heinz,
vielen Dank für dein Makro.
Ja es geht nur um die Formatierung der Schrift. Umrandungen etc. brauche ich nicht. Dh. wenn ich die HTML-Tags auf meine Anforderungen anpasse, sollte es genau das richtige sein!

Folgendes habe ich jedoch festgestellt:
Eigentlich wollte ich das Range-Objekt der Prozedur, welches eine dynamische Tabelle enthält, wie folgt übergeben:

GetHTML(.Range("dynamischeTabelle[[Spaltename]]")(i))

hier kommt es aber in der folgender Zeile zu einer Fehler:
Code:

Fehlermeldung: "Die Text-Eigenschaft des Charakter-Objektes kann nicht zugeordnet werden"

Wenn ich das aber das Range-Objekt mit absoluten Zellbezug übergebe, dann funktioniert es:
GetHTML(.Range("BG5"))

Woran kann das liegen?

Detail am Rande: Code wird in einer Access-Datenbank ausgeführt. Das sollte jedoch egal sein ...

 

Hallo Ritchie,

es wird ein Zell-Rangeobjekt erwartet...

Deine Form .Range("dynamischeTabelle[[Spaltename]]")(i) sagt mir leider jetzt erstmal nichts; ob es auch ein passendes Range-Objekt ist.

Außerdem hast Du keine Angaben darüber gemacht, ob gleich das erste Zeichen (iPos=1) den Fehler verursacht.

Deshalb kann ich leider keine Auskunft darüber geben, warum das nicht funktioniert.
Vielleicht weiß ja noch jemand anderes was dazu.

Gruß
Karl-Heinz

 

Hallo Karl-Heinz,
so Fehler gefunden:
In der übergebenen Zelle war nicht der Text vorhanden sondern die Referenz auf eine andere Zelle, welche dann den Text enthielt.
Deine Funktion habe ich leicht abgeändert, funktioniert bestens!
Vielen Dank!