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