RichTextFeld->RichTextItem und zurück

[Thomator]

Ich schon wieder, auch wenns nervt...
ich suche verzweifelt nach einer Möglichkeit, aus einem RichText-Feld in ein Richtext-Item einzulesen, dort was anzuhängen und das ganze dann zurück in das Feld zu schreiben. Dabei soll die Formatierung vom Text erhalten bleiben! Geht das? Und wenn ja, wie?
Ich hoffe, mir kann damit einer helfen.
Danke schon mal für die Bemühungen!

Servus ...

[Axel]

Hi,

meinst so was ?

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Call rtitem.AppendText( "Add text to the rich-text item" )
  Call rtitem.AddNewLine( 1 )
  Call rtitem.AppendText("Add more text to rich-text item")
  Call doc.Save( False, True )
End If

Axel

[Thomator]

Ja, im Grunde schon
mein Quelltext, mit dem ich hier schon die ganze Zeit rumteste, sieht folgendermaßen aus:
   
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Set doc = uidoc.document
   Dim oldRTItenm As NotesRichTextItem
   Set oldRTItem = doc.GetFirstItem("Verlauf")
   Dim newRTItem As NotesRichTextItem
   Set newRTItem = doc.CreateRichTextItem("Temp")
   Call newRTItem.AddNewLine(2)
   Call newRTItem.AppendText("Hallo")
   Call oldRTItem.AppendRTItem(newRTItem)

wenn ich das ausführe sagt mir Notes, wenn die letzte Zeile erreicht ist, dass eine ObjectVariable nicht gesetzt ist.Das alte RTItem, das auf das Richtextfeld "Verlauf" im Dokument zeigt, bleibt auch die ganze Zeit vom Typ NotesItem. Liegt das Problem vielleicht dort irgendwo?

[Axel]

Hi,

du hast einen Schreibfehler drin:

   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Set doc = uidoc.document
   Dim oldRTItenm As NotesRichTextItem
   Set oldRTItem = doc.GetFirstItem("Verlauf")
   Dim newRTItem As NotesRichTextItem
   Set newRTItem = doc.CreateRichTextItem("Temp")
   Call newRTItem.AddNewLine(2)
   Call newRTItem.AppendText("Hallo")
   Call oldRTItem.AppendRTItem(newRTItem)

Ändere die fettgedruckte Zeile in:
   Dim oldRTItem As NotesRichTextItem

Axel


   

[Thomator]

na super, ich dreh hier bald durch und dann so was..
na besten Dank

Tschau

[Axel]

Hi,

keine Panik. So was passiert jedem mal. Irgendwann sieht man den Wald vor lauter Bäumen nicht mehr.

Setzt du das Posting bitte noch auf erledigt.


Axel