Frontentdoc -> RTF im Backend ändern, Frontend sichtbarkeit

[Schnubbel]

Hallo Ihr Lieben,

ich hänge gerade an einem Problem und komm nicht weiter:

Ich habe ein Dokument im Frontend offen. In diesem Dokument gibt es ein RTF. Ich drücke auf einen Button und will einen Bereich in dem RTF ändern.

Code

Dim ws As New Notesuiworkspace
	Dim uidoc As Notesuidocument
	Dim frontdoc As Notesdocument
	
	Set uidoc = ws.CurrentDocument
	Set frontdoc = uidoc.Document
	
	Dim i As Integer
	Dim AlterWert As String
	Dim NeuerWert As String
	
	Dim AlteZeile As String
	Dim NeueZeile As String	
	
	
	Dim rtitem As NotesRichTextItem
	Dim rtrange As NotesRichTextRange
	
	Set rtitem = frontdoc.Getfirstitem("RTF")
	
	Set rtrange = rtitem.CreateRange
	
	AlterWert  = 		frontdoc.Feldwert(0)
		
	NeuerWert = Inputbox("Bitte geben Sie die neue Bezeichnung für " & AlterWert & " ein","Neue Bezeichnung",AlterWert)
	
	Call uidoc.FieldSetText("Feldwert","")		
	Call uidoc.FieldSetText("SaveOptions","0")
	Call uidoc.Close(True)
	
	Print "Ausgetauscht:" & rtrange.findandReplace(AlterWert,NeuerWert)				
	
	Call frontdoc.save(1,1)	
	
	Call ws.EditDocument(True, frontdoc)	
	
	Set uidoc = ws.CurrentDocument
	Call 	uidoc.FieldSetText("SaveOptions","1")

Ich habe hier im Forum die Funktion findandReplace gefunden und würde es gerne darüber machen.
Ich versuche also das Frontenddok zu schließen,
das RTF im Hintergrund zu ändern und dann wieder das Frontend zu öffnen.

Hat jemand einen kleinen Zaunpfahl mit dem er mich in die richtige Richtung schubsen mag?

Danke

[Peter Klett]

Du musst Dir von dem Dokument die ID merken, dann das Dokument schließen und aus dem Speicher löschen

Delete uidoc
Delete frontdoc

dann über die ID das Dokument neu holen, das Richtextfeld ändern. Dokument speichern und zuletzt das Dokument neu öffnen

[Schnubbel]

Vielen Dank! Jetzt tut der Code, was er soll