ThisComponent Statement

рд╕рдХреНрд░рд┐рдп рдЕрд╡рдпрд╡рдХреЛ рдареЗрдЧрд╛рдирд╛ рджрд┐рдиреБрд╣реЛрд╕реН рдЬрд╕рдХреЛ рдХрд╛рд░рдг рдпрд╕рдХрд╛ рдЧреБрдгрд╣рд░реВ рд╕реЗрдЯ рдЧрд░реНрди рд░ рдкрдвреН рд╕рдХрд┐рдпреЛрд╕реН ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


ThisComponent

рдЙрджрд╛рд╣рд░рдг:


Sub Main
REMрд▓реЗ рдкрд╛рда рдХрд╛рдЧрдЬрд╛рддрдорд╛ "рд╕рд╛рдордЧреНрд░реАрд╣рд░реВрдХреЛ рддрд╛рд▓рд┐рдХрд╛"рдЕрджреНрдпрд╛рд╡рдзрд┐рдХ рдЧрд░реНрджрдЫ ред
Dim allindexes, index As Object
    allindexes = ThisComponent.getDocumentIndexes()
    index = allindexes.getByName("рд╕рд╛рдордЧреНрд░реАрд╣рд░реВрдХреЛ рддрд╛рд▓рд┐рдХрд╛рез")
    REMрд▓реЗ рд╕рд╛рдордЧреНрд░реА рд░ резрдХреЛ рддрд╛рд▓рд┐рдХрд╛рдХреЛрд▓рд╛рдЧрд┐ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдирд╛рдо рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрдЫ ред
    index.update()
End Sub