Richtext

    Hallo,


    ich hatte hier im Forum mal gesucht nach RichText kopieren.
    dort war auch etwas script, leider funktioniert das nicht.


    2. Frage gibt es eine Möglichkeit das RT-Feld zuvor zu leeren (löschen) das nichts darin ist


    Dim doc As NotesDocument
    Dim rtitem2 As NotesRichTextItem
    Dim rtitem1 As NotesRichTextItem
    Dim ws As New Notesuiworkspace
    Dim uidoc As Notesuidocument

    Set uidoc = ws.CurrentDocument





    Call uidoc.Save
    Set doc = uidoc.Document
    ' hier muss das uidoc noch geschlossen werden
    Call uidoc.close

    Set rtitem1 = doc.getfirstitem("test")
    Set rtitem2 = doc.getfirstitem("test2")


    Call doc.save(True, True)

    Wie wäre es mit ReplaceItemValue?

    Life is not a journey to the grave with the intention of arriving safely in a pretty and well-preserved body, but rather to skid in broadside, thoroughly used up, totally worn out, and loudly proclaiming "Wow, what a ride!!! :evil:
    Beschleunigung ist, wenn die Tränen der Ergriffenheit waagrecht zum Ohr hin abfliessen - Walter Röhrl

    Nur zwei kurze Hinweise:
    Der "Adler in ganz grosser Ausführung" mischt hier munter Front- und Backend-Methoden. Das kann nicht gut gehen, es sei denn, man weiss ganz genau, was man tut. Wir wissen aber, dass er es nicht weiss.
    Und ReplaceItemValue ist in Bezug auf NotesRichtTextItems gar keine gute Idee. Der "grosse Knall" ist vorprogrammiert. Wenn man ein RTI loswerden will: Dann NotesItem.Remove. Das kümmert sich auch um EmbeddedObjects ...


    Bernhard