Domino 9 und frühere Versionen > ND8: Entwicklung

NotesRichTextStyle

<< < (2/2)

Peter Klett:
Du  musst dann die beiden Styles auch verwenden und in der richtigen Reihenfolge belegen, etwa so:

Sub textbefuellen(doc as NotesDocument)

Dim rtitm as NotesRichTextItem
Dim rtstyle As NotesRichTextStyle
Dim rtstylefett as NotesRichTextStyle

Set rtitm = doc.Getfirstitem(Feld)

Set rtstylefett = sess.Createrichtextstyle()
rtstylefett.Bold = True

Set rtstyle = sess.Createrichtextstyle()
rtstyle.Bold = False

'Überschrift fett:
Call rtitm.Appendstyle(rtstylefett)
Call rtitm.Addnewline(1)
Call rtitm.Appendtext(ueberschr)
Call rtitm.Addnewline(1)

'weiter mit normalem Text:
Call rtitm.Appendstyle(rtstyle)
Call rtitm.Addnewline(1)
Call rtitm.Appendtext(text)
Call rtitm.Addnewline(1)

Call doc.Save(True, False)

End Sub


EDIT: Grundsätzlich funktioniert das aber, ich verwende das häufig. Also, nicht aufgeben :)

it898ur:
Eventuell gibt es hier Probleme beim Anfügen des neuen Styles an das bereits bestehende RT-Feld.

Eine einfache Umgehung wäre im Backend ein temporäres Dokument anzulegen, dort ein neues RT-Item zu erstellen und die formatierten Texte anzufügen. Zu guter letzt das neue RT-Item an das bestehende RT-Item im eigentlichen Dokument anhängen.

Gruß

André

DaemoN:
Danke für euer Feedback und Peter du hast Recht, grundsätzlich funktioniert es. Hab es grad mal in einem neuen Agent ausprobiert und da klappt es einwandfrei. Muss jetzt schauen was im anderen Agent schief läuft dass es nur für die erste Überschrift ausgeführt wird.

Wie immer super Support hier! :)

Navigation

[0] Themen-Index

[*] Vorherige Sete