Auch wenn der Beitrag etwas älter ist wollte ich hier mal eine Lösung dazu posten:
Wenn Ihr ein Dokument wegen Kaputter Tabelle im Richtextfeld nicht mehr aufbekommt, dann versucht einfach mal mit dem folgenden Script das Richtextfeld hin und her zu kopieren. Damit hat es bei mir unter R6 funktioniert.
Dim session As New NotesSession
Dim curdb As NotesDatabase
Dim curcoll As NotesDocumentCollection
Dim curdoc As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
Set curdb = session.CurrentDatabase
Set curcoll = curdb.UnprocessedDocuments
For i = 1 To curcoll.Count
Set curdoc = curcoll.GetNthDocument( i )
Set rtitemA = curdoc.GetFirstItem( "Body" )
Set rtitemB = curdoc.CreateRichTextItem( "Body1" )
Call rtitemB.AppendRTItem( rtitemA )
Call rtitemA.Remove
Set rtitemA = curdoc.CreateRichTextItem( "Body" )
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove
Call curdoc.Save( True, True )
Next