OpenOffice.info

Sub SetHighlighting_OnFocus(oEvt)
   Dim oSelection
   oSelection = oEvt.Source.Selection
   oSelection.Min = 0
   oSelection.Max = 3
   oEvt.Source.setSelection(oSelection)
End Sub

Tja - wenn man weiss nach was man sucht: setSelection

http://de.openoffice.info/viewtopic.php?f=8&t=37589

Das Makro hab ich nur geringfügig abegeändert, Hart-Codierung auf '3' ist auch kein Problem, da der Text nur aus 3 Chars besteht ;) ansonsten müsste man einfach mit len() die Länge auslesen...

[code]Sub SetHighlighting_OnFocus(oEvt)
Dim oSelection
oSelection = oEvt.Source.Selection
oSelection.Min = 0
oSelection.Max = 3
oEvt.Source.setSelection(oSelection)
End Sub[/code]

thx- DPunch

g

Hallo!

Weiss jemand wie es z.B. in einem Base-Formular möglich ist automatisch den gesamten Inhalt eines Textfeldes zu markieren wenn das Textfeld den Fokus erhält?
Manchmal ist das nämlich der Fall, und dann wiederum blinkt der Cursor am Ende des Textfeldes, und man muss den Text erst händisch löschen bevor man was neues eingeben kann.

g