Domino 9 und frühere Versionen > ND9: Entwicklung

Frontentdoc -> RTF im Backend ändern, Frontend sichtbarkeit

(1/1)

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")

--- Ende Code ---

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  ;D

Navigation

[0] Themen-Index