AppendTable verändert Randeinstellungen

[HH]

Hallo erstmal!

Ich versuche in einem RTItem an einer bestimmten Position eine Tabelle einzufügen. Der Inhalt des RTItems kommt aus einer Vorlage.

Funktioniert soweit auch. Allerdings habe ich den Effekt, dass beim Text unterhalb der Tabelle der rechte Seitenrand verändert wird.

Hier der auf das Wesentliche reduzierte Code:

Code

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace 
	Dim session As New NotesSession 
	Dim db As NotesDatabase 
	Dim templateDoc As NotesDocument 
	Dim doc As NotesDocument 
	Dim col As NotesDocumentCollection 
	Dim search As String 
	Dim templateBody As NotesRichTextItem 
	Dim rtitem As NotesRichTextItem 
	Dim rtnav As NotesRichTextNavigator 
	
	'Vorlage aus Journal suchen
	Set db = New NotesDatabase( "", "journal.nsf" ) 
	search = {subject="Tabellentest"} 
	Set col = db.search( search, Nothing, 0 ) 
	Set templateDoc = col.GetFirstDocument 
	Set templateBody = templateDoc.GetFirstItem( "body" ) 
	
	'Neues Dokument anlegen
	Set doc = db.CreateDocument 
	doc.form = "CleanSheet" 
	doc.subject = "Tabellentest" 
	
	'RTItem aus Vorlage kopieren
	Set rtitem = doc.CreateRichTextItem( "body" ) 
	Call rtitem.AppendRTItem( templateBody ) 
	
	Set rtnav = rtitem.CreateNavigator 
	'Einfügemarke zum Suchbegriff
	Call rtnav.FindFirstString( "<<Tabelle>>" ) 
	
	'Tabelle einfügen
	Call rtitem.BeginInsert( rtnav ) 
	Call rtitem.AppendTable( 2, 3 ) 
	Call rtitem.EndInsert 
	
	Call rtitem.update 
	'Dokument anzeigen
	Call ws.EditDocument( True, doc, False ) 
End Sub

Kennt jemand eine Lösung des Problems?

Gruß
Hubert

Client 6.5.5 und 7.0.2