Domino 9 und frühere Versionen > ND7: Entwicklung

Problem mit LS-Klasse NotesRichTextStyle

(1/2) > >>

jo@chim:
Wenn ich versuche, einen Text formatiert in der Art

--- Code: --- Set rtitem = doc.getfirstitem("MeinRTFeld" )
Set richStyle = session.CreateRichTextStyle
richStyle.Bold=True
richStyle.FontSize = 10
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText("Mein Text)

--- Ende Code ---
in ein Rich Text Feld einzufügen, wird nicht die neue Formatierung (Bold, 10 pt) übernommen, sondern die Usprungsformatierung von "Mein RTFeld" beibehalten.

Kann es sein, dass ich das Richtextfeld nicht mit doc.getfirstitem holen kann, sondern per


--- Code: --- Dim richText As New NotesRichTextItem(doc, "MeinRTFeld")
--- Ende Code ---

neu anlegen muss? Was natürlich Mist wäre, da ich ja formatierten Text an ein existierendes Feld anhängen will.

Oder wo liegt mein Fehler?

ata:
... wenn ich mich richtig entsinne, wird das RichText-feld erst dann ernst genommen, wenn du es nach dem initailiseren als solches erkennst => If item.Type = 1 Then...

Versuch es mal - ich denke dann sollte es klappen

Toni

jo@chim:
Danke für Deine schnelle Antwort Toni - aber auch nach dem Initialisieren mit If rtitem.Type = 1 Then... hat das Call rtitem.AppendStyle(richStyle) keinen Effekt bei mir...

ata:
... beschreibe mir, wie du die Objekte initailisierst.

Ist das doc ein abgeleitetes uidoc?
Wenn du beschreibst, daß der Stil nicht übernommen wird - wie genau gehst du der Reihe nach vor?

Toni

jo@chim:

--- Zitat von: ata am 04.03.08 - 19:34:01 ---Ist das doc ein abgeleitetes uidoc?
--- Ende Zitat ---
Ja ich hole das per uidoc.Document


--- Zitat von: ata am 04.03.08 - 19:34:01 ---wie genau gehst du der Reihe nach vor?
--- Ende Zitat ---
Ich will den Inhalt einer Mail und deren Header-Informationen in ein existierendes und im Frontend geöffnetes Dokument importieren.
Das sieht so aus:

--- Code: ---'...
Set doc=uidoc.Document
Set rtitem = doc.getfirstitem("RTFeld" )
If rtitem.Type = 1 Then
Set richStyle = session.CreateRichTextStyle
richStyle.Bold=True
richStyle.FontSize = 10
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText(mailheader$)
Call rtitem.AppendRTItem( rtitem_mail )
End If
Call uidoc.fieldsettext("SaveOptions","0")
Call uidoc.close
Call doc.save(True,False)
Call ws.EditDocument(True,doc)

--- Ende Code ---

Funktioniert auch alles soweit - bis auf die Stilzuweisung...

Navigation

[0] Themen-Index

[#] Nächste Seite