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