Имя поля пользователя

[tomor]

Как мне получить имя поля пользователя, на котором стоит курсор?

[tomor]

Код Выделить Развернуть


sub ViewVariable
Dim oSels As Object, oSel As Object
Dim lSelCount As Long, lWhichSelection As Long
oSels = ThisComponent.getCurrentSelection()
If Not IsNull(oSels) Then
  lSelCount = oSels.getCount()
  For lWhichSelection = 0 To lSelCount-1
    oSel = oSels.getByIndex(lWhichSelection)
'Вывожу значение поля
    MsgBox oSel.getString()
  Next
End If

end sub

Как бы сам код поля получить, или хотя бы имя

[rami]

Как мне получить имя поля пользователя, на котором стоит курсор?

Имя поля пользователя:

Код Выделить Развернуть

Sub UserFieldName
MsgBox ThisComponent.CurrentSelection(0).TextField.TextFieldMaster.Name
End Sub