Rich Text-Feld / Exiting-Formel

[Silver]

Hallo!

Ich habe eine Maske, in der sich ein Feld "Comment" und ein Feld "Comment_1" befindet.
Es soll nun so sein, wenn man das Feld "Comment" verlässt, soll der Inhalt auch im Feld "Comment_1" geschrieben. Werden. Soweit so gut - aber die Felder sind Rich Text-Felder. Ich krieg immer nur den Text rüber. Wie mache ich das mit den Formatierungen???
Kann mir hier jemand helfen? 

[koehlerbv]

Mit den Methoden der NotesUIDocument class kannst Du den Inhalt von Comment markieren, in die Zwischenablage kopieren und dann in Comment_1 kopieren.

HTH,
Bernhard

[Silver]

Sorry... kannst Du mir hier ma den Code geben? Kenn mich leider nur mit der Formel-Sprache aus, nicht aber mit LotusScript. Da bin ich ein blutiger Anfänger. Sorry! 

[Axel]

In der Designerhilfe gibt's Beispiele dafür. Zum Beispiel das hier. Du musst nur die Feldnamen anpassen.

Code

  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.GotoField( "FirstDraft" )
  Call uidoc.SelectAll
  Call uidoc.Copy
  Call uidoc.GotoField( "Revision" )
  Call uidoc.Paste

Axel

[Driri]

Exciting-Formel

Sorry für Offtopic, aber das ist ja mal nen genialer Schreibfehler 

[Silver]

      
Stimmt - sorry! 
Aber es iss doch schön, wenn mach auch über sich selbst lachen kann. Nun ja... also meine Formel sieht nun so aus. Es klappt eigentlich auch alles - nur, wenn das Feld leer bleibt und ich auf raus klicke bekomme ich ne Fehlermeldungen. Wie muss hier dann noch die If-Formel aussehen?

Sub Exiting(Source As Field)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   If Comment <> "" Then
      Call uidoc.GotoField( "Comment" )
      Call uidoc.SelectAll
      Call uidoc.Copy
      Call uidoc.GotoField( "Comment_1" )
      Call uidoc.SelectAll
      Call uidoc.Paste
      Call uidoc.GotoField( "FirstName" )
   End If
End Sub

So gehts leider net! 
Da tut sich gar nix. Fehler kommt zwar keiner. Aber Comment_1 bleibt auch leer.

[Axel]

So kann's auch nicht gehen.

Wenn, dann so:
   
   ...
   If uidoc.FieldGetText("Comment") <> "" Then
      ...

Allerdings liefert diese Abfrage ein falsches Ergebnis, wenn in dem Feld nur ein Anhang enthalten ist. Die Abfrage ob ein RTF-Feld leer ist ist nicht ganz trivial.

Hier ging's schon mal um das Thema: http://atnotes.de/index.php?topic=5106.0


Axel

[Silver]

Vielen Dank an alle! Jetzt klappt alles!