8.2.9 Wie kann man markierten Text einschwärzen?
Anscheindend besteht im Pentagon bedarf an so einer Funktion :-)
Dies Makro ersetzt den Text mit x und schwärzt ihn.

sub cur_selection_machschwarz
   myDoc=thisComponent
   myViewCursor=myDoc.GetCurrentController.ViewCursor
   mytext=myViewCursor.string
   myLen=len(mytext)
   mynewtext="x"
   for i=1 to mylen
     mynewtext=mynewtext+"x"
   next
   myViewCursor.string=mynewtext
   myViewCursor.charcolor=&H000000
   myViewCursor.charbackcolor=&H000000
   myViewCursor.goright(mylen+1,false)
end sub