Steuerzeichen/TAG's (Attribute: Fett, Unterstrichen, ...)

[Dami]

Aus meiner Base Anwendung (Praxisverwaltung) werden Briefe generiert, neben der Anschrift sind auch Textblöcke in der Datenbank hinterlegt, die dann entsprechend der Anamnese/Diagnose automatisiert zu einem Anschreiben/Brief zusammengestellt werden (reiner Text).
Hierzu verwende ich ein Makro welches 'Feldbefehl→ Platzhalter → Text' mit dem entsprechenden Text aus der Datenbank 'ersetzt'. Nun möchte ich auch diverse Passagen der Textblöcke mit
z.B. Unterstreichung oder Fett hervorheben.
Gibt es die Möglichkeit wie zu Staroffice-Zeiten durch voranstellen von Steuerzeichen/Attributen
solche Formatierungen durchzuführen (ähnlich z.B. HTML: <u> der unterstrichener Text </u>) ?

[F3K Total]

Hallo,
ich denke, du bist hier in der falschen Forumskategorie. Du schreibst ja selbst, das du ein Makro verwendest.
Mit dem Makro kannst du einen

Code: Alles auswählen

TextCursor

erzeugen, mit dem du alle Eigenschaften des Textes, z.B. Schriftgröße, Schriftart, fett, kursiv, unterstrichen, Schriftfarbe usw. einstellen kannst.
Den Textcursor erzeugst du z.B. so:

Code: Alles auswählen

oText = ThisComponent.Text
oTextCursor = oText.CreateTextCursor

Um den Text z.B. Fett zu machen ändert man die Eigenschaft

Code: Alles auswählen

oTextCursor.CharWeight

von 100 auf 150
also

Code: Alles auswählen

oTextCursor.CharWeight = 150

Mit den Suchworten
TextCursor und CharWeight findest du bestimmt Beispiele in den einschlägigen Foren.
Gruß R

[Dami]

F3K danke Dir für die schnelle Antwort.
Dies jedoch umzusetzen wird schon Aufwand...

Wenn ich dies richtig verstehe müsste ich:
ein Programm schreiben welches Marken für die entsprechende Hervorhebungen
im Text findet und interpretiert.

In Anlehnung an HTML als Beispiel:
<u> UText </u>
-> Lese Text ein, Finde die Position der Start- und Endmarke, lösche diese, wende die Attribute von Start- bis Endposition an.
Okay,.. mal schauen wann ich Zeit habe