Mmmh - dumm, dass sich sich ein RT-Feld nicht per Formel berechnet ;)
Folgendes habe ich mal auf die Schnelle probiert und es klappt, benötigt aber Feinschliff bzw. eine Idee, wo das Duplizieren am besten hinpasst:
Maske mit 2 Richtext-Feldern "Body1" & "Body2", erstes ist bearbeitbar, letzteres berechnet mit Formel @ThisValue (nur, damit es nicht bearbeitbar ist und etwas im Formelfenster steht).
Dann
Sub Postsave(Source As Notesuidocument)
Dim oAktDoc As NotesDocument
Dim rt1 As NotesRichTextItem
Dim rt2 As NotesRichTextItem
Set oAktDoc = Source.Document
Set rt1 = oAktDoc.GetFirstItem("Body1")
Set rt2 = oAktDoc.GetFirstItem("Body2")
If Not rt2 Is Nothing Then rt2.remove
Set rt2 = New NotesRichTextItem(oAktDoc, "Body2")
rt2.AppendRTItem rt1
oAktDoc.Save True, False
End Sub
Nach Strg+S sind die Änderungen natürlich nicht sichtbar, Dok muss geschlossen & neu geöffnet werden, aber wenn man diese Idee z.B. in eine Schaltfläche packt, die das auch noch übernimmt, kommst Du Deinem Ziel näher.
Dumm nur, dass dann sämtliche RT-Inhalte doppelt / mehrfach im Dokument gespeichert sind (was mich selbst daran hindern würde, diese Idee je zum Einsatz zu bringen ;)).
Und: Der Codeschnipsel enthält keinerlei Errorhandling (wird hier richtigerweise gern kritisiert, aber das Beispiel soll auch nur eine Idee liefern) und kümmert sich auch nicht um irgendwelche $File-Items.
Schönes WE!