Δημιουργία function στο openoffice calc

[solution1]

Βρήκα έτοιμη μια function για excel η οποία μετατρέπει ελληνικό κείμενο σε greeklish.

Αντιγράφω από εδώ

Function Greeklish(keimeno As String) As String
Application.Volatile True
Dim Varr As Variant
Dim inchar As Variant
Dim exchar As Variant
Dim pl As Integer, gr As Integer, lu As Integer
Dim gramma As String
pl = Len(keimeno)
 
inchar = Array("Α", "Β", "Γ", "Δ", "Ε", "Ζ", "Η", "Θ", "Ι", "Κ", "Λ", _
"Μ", "Ν", "Ξ", "Ο", "Π", "Ρ", "Σ", "Τ", "Υ", "Φ", "Χ", "Ψ", "Ω", _
"Ά", "Έ", "Ή", "Ί", "Ό", "Ύ", "Ώ", "Ϊ", "Ϋ", "ΐ", "ΰ", "ς")
 
exchar = Array("A", "B", "G", "D", "E", "Z", "H", "8", "I", "K", "L", _
"M", "N", "KS", "O", "P", "R", "S", "T", "Y", "F", "X", "PS", "W", _
"A", "E", "H", "I", "O", "Y", "W", "I", "Y", "I", "Y", "S")
 
ReDim Varr(pl - 1)
For gr = 1 To pl
gramma = Mid(keimeno, gr, 1)
For lu = LBound(inchar) To UBound(inchar)
If UCase(gramma) = inchar(lu) Then gramma = exchar(lu): Exit For
Next
Varr(gr - 1) = gramma
Next
Greeklish = Join(Varr, "")
End Function

Μπορεί κάποιος να με βοηθήσει να την χρησιμοποιήσω σε openoffice calc;

 

Ευχαριστώ

 

edit: Υπάρχει αντίστοιχο θέμα κι εδώ