OpenOffice.info

akt_sel = ThisComponent.getCurrentSelection
For i = 0 To akt_sel.Count-1
	tmp_sel = akt_sel(i)
	akt_sel(i).String = String(LEN(akt_sel(i).String), "*")
Next i

z.B. folgendes Makro tut das:

[code]akt_sel = ThisComponent.getCurrentSelection
For i = 0 To akt_sel.Count-1
tmp_sel = akt_sel(i)
akt_sel(i).String = String(LEN(akt_sel(i).String), "*")
Next i[/code]


Gruß
Stephan