Hallöchen
,
ich hab nen Problem mit der Formatierung eines Richtextfeldes.
Ich ziehen mir aus mehreren Dokumenten 2 Elemente.
Das Erste Elemente soll Fett und das Zweite normal in ein neues RichtextFeld übertragen werden.
Ich habe folgende Lösung versucht, welche aber keine Veränderungen erbracht hat:
Dim RTItemBody As NotesRichTextItem
Dim RTIElement1 As NotesRichTextItem
Dim RTIElement2 As NotesRichTextItem
Dim richStyle As NotesrichTextStyle
Set richStyle = s.CreateRichTextStyle
richStyle.Bold = True
Call RTItemBody.AppendStyle(richStyle)
Call RTItemBody.AppendRTItem(RTIElement1)
richStyle.Bold = False
Call RTItemBody.AppendRTItem(RTIElement2)
Bin für jede Hilfe dankbar.
Andreas