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

Das Textverarbeitungsprogramm

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

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

Beitrag 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