hier kleines Script
Sub Click(Source As Button)
Dim ws As New NotesUiWorkspace
ws.Currentdocument.Document.Value = Sort(ws.Currentdocument.Document.Value)
End Sub
Function Sort(Value As Variant) As Variant
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim hilf As String
n = Ubound(Value)
For i = 0 To n
For j = i To n
If (Value(i) > Value(j)) Then ' Aufsteigend
hilf = Value(i)
Value(i) = Value(j)
Value(j) = hilf
End If
Next
Next
Sort = Value
End Function
