Seite 1 von 1

Re: Schwärzen bzw. markierte Textstellen durch gleiche Anzahl eines Zeichens ersetzen

Verfasst: Mi, 25.03.2020 22:38
von Stephan
z.B. folgendes Makro tut das:

Code: Alles auswählen

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

Gruß
Stephan