Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Thomator am 13.01.03 - 14:44:35

Titel: RichTextFeld->RichTextItem und zurück
Beitrag von: Thomator am 13.01.03 - 14:44:35

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 ...

Titel: Re:RichTextFeld->RichTextItem und zurück
Beitrag von: Axel am 13.01.03 - 15:39:54

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

Titel: Re:RichTextFeld->RichTextItem und zurück
Beitrag von: Thomator am 13.01.03 - 15:49:36

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?

Titel: Re:RichTextFeld->RichTextItem und zurück
Beitrag von: Axel am 13.01.03 - 15:53:57

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


   

Titel: Re:RichTextFeld->RichTextItem und zurück
Beitrag von: Thomator am 13.01.03 - 15:57:25

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

Tschau

Titel: Re:RichTextFeld->RichTextItem und zurück
Beitrag von: Axel am 13.01.03 - 16:13:08

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