Ole, Copy +Paste

[Schmiddi]

Hallo,

schreibe gerade eine Maske für Benutzer. Darin ein Rich Text Feld.
Gibt es eine Möglichkeit, daß ich mit einer Schaltfläche ein Script oder Command hinterleg, welche dann aus der Zwischenablage aus Windows den Inhalt in das Rich Text einfügt. Mir geht es lediglich nur darum, ob es möglich ist, in welcher Notes- Klasse die entsprechende Methode steht oder ob es ein Command gibt, welche sozusgaen das "Strg-V"
->"Paste "ersetzt". Sollte ein Feature für Klicksüchtige werden.

Danke im voraus.

Gruß

Björn  

[Axel]

Hi,

versuch's mal mit @Command([EditPaste]) oder auch @Command([EditPasteSpecial])

Axel

[Schmiddi]

Danke dür den Tipp. Sollte eigentlich auch gehen. Seltsamerweise nicht immer, habe nun eine Lotus Script Lösung entwickelt, die ich nicht vorenthalten möchte. Danke nochmals.


Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   If ( uidoc.FieldGetText( "Grafik" ) = "" ) Then
      Print( "Bild wird eingefügt" )
      Call uidoc.GotoField( "Grafik" )
      Call uidoc.paste
   Else
      Msgbox("es ist bereits eine Grafik eingefügt")
      continue = False
   End If
End Sub ;



D