LibreOffice-Forum

Guten Nachmittag,

kann man im Writer einstellen, dass wenn ich maximal definierte Textlänge eines Formularfeldes bei der Texteingabe überschreite, der Cursor automatisch in das nächste Formularfeld springt?

Vielen Dank für jeden Hinweis
Kontschi

Moin,
einstellen? Nicht das ich wüsste. Aber mit folgenden kleinen Makro, an die Textfelder gebunden und wenn die Aktivierungsreihenfolge ordentlich von 1 ...bis n eingestellt ist, geht es.

Code: Alles auswählen

Sub Jump_to_next_Control(oEvent)
    oTf = oEvent.Source
    if len(oTf.Text) = oTf.MaxTextLen then
         nTabindex = oTf.model.TabIndex
         oForm = oTf.model.parent
         oTextfieldsEnum = oForm.createEnumeration
         while oTextfieldsEnum.hasMoreELements
              oTf = oTextfieldsEnum.NextElement
              if oTf.TabIndex = nTabindex + 1 then
                   oController = ThisComponent.CurrentController
                   oTextfieldControl = oController.getControl(oTf)
                   oTextfieldControl.setFocus()
               endif
         wend             
    endif
End Sub

Beispiel anbei. Gruß R

LibreOffice-Forum

nach ausgefülltem Formularfeld automatisch zum nächsten

nach ausgefülltem Formularfeld automatisch zum nächsten

Re: nach ausgefülltem Formularfeld automatisch zum nächsten