LibreOffice 7.5 Help
рд╕реНрдЯреНрд░рд┐рдЩ рдкрд░рд╛рдорд┐рддрд┐рдХреЛ рд░реВрдкрдорд╛ рд╡рд╕реНрддреБрдХреЛ рдирд╛рдо рдорд╛рдзреНрдпрдпрдордмрд╛рдЯ рд░рди-рдЯрд╛рдЗрдордорд╛ рд╡рд╕реНрддреБрдХреЛ рдареЗрдЧрд╛рдирд╛ рд░рд╛рдЦреНрдирд▓рд╛реНрд▓рд╛рдИ рд╕рдХреНрд╖рдо рдмрдирд╛рдЙрдЫ ред
рдЙрджрд╛рд╣рд░рдгрдХреЛрд▓рд╛рдЧрд┐, рджрд┐рдПрдХрд╛ рдЖрджреЗрд╢:
MyObj.Prop1.Command = 5
рдЖрджреЗрд╢ рдЦрдгреНрдбрд▓рд╛рдИ рдЕрдиреБрд░реВрдк рдЧрд░рд╛рдЙрдЫ:
Dim ObjVar as Object
Dim ObjProp as Object
ObjName As String = "MyObj"
ObjVar = FindObject( ObjName As String )
PropName As String = "Prop1"
ObjProp = FindPropertyObject( ObjVar, PropName As String )
ObjProp.Command = 5
рдпрд╕рд▓реЗ рд░рди-рдЯрд╛рдЗрдордорд╛ рдЧрддрд┐рдпреБрдХреНрдд рдирд╛рдорд╣рд░реВ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ ред рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐:
"TextEdit1" to "TextEdit5" in a loop to create five control names.
See also: рднреЗрдЯрд╛рдЙрдиреЗ рдЧреБрдг рд╡рд╕реНрддреБ
FindObject( ObjName As String )
ObjName: рд╕реНрдЯреНрд░рд┐рдЩ рддреНрдпрд╕рд▓реЗ рд╡рд╕реНрддреБ рдирд╛рдо рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рд░рди-рдЯрд╛рдЗрдордорд╛ рдареЗрдЧрдирд╛ рд░рд╛рдЦреНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред