| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 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 |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009