Libre Office Calc Macro - change polish letters to latin

asked 2018-11-03 22:58:40 +0200

this post is marked as community wiki

This post is a wiki. Anyone with karma >75 is welcome to improve it.

Hello Ive that macro when I run this, Ive error Error: Basic run error Arg isnt an option It`s stop on the line number 14

MACRO:

1. Option Explicit
2. 
3. Function CzyscPolskie(Dane as String) As String
4. 
5. Dim i As Integer
6. Dim polskie$(20)
7. Dim angielskie$(20)
8. 
9. polskie$() = Array ("ą","ć","ę","ł","ń","ó","ś","ż","ź","Ą","Ć","Ę","Ł","Ń","Ó","Ś","Ż","Ź")
10. angielskie$() = Array ("a", "c", "e", "l", "n", "o", "s", "z", "z", "A", "C", "E", "L", "N", "O", "S", "Z", "Z")
11. 
12. For i = 0 To 17
13. 
14. Dane = ReplaceString(Dane,angielskie$(i),polskie$(i))
15. 
16. Next i
17. 
18. CzyscPolskie = Dane
19. 
20. End Function
edit retag flag offensive close merge delete