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.
| |
| 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