ThisComponent Statement

ThisComponent

Sub Main

REM ཡིས་ཡི་གེ་ཐག་གཅོད་ཡིག་ཚགས་ནང་གི་"དཀར་ཆག་"གསར་བརྗེས་བྱའོ་

Dim allindexes, index As Object

    allindexes = ThisComponent.getDocumentIndexes()

    index = allindexes.getByName("Table of Contents1")

    REM ཡིས་དཀར་ཆག་གི་ཁས་ལེན་མིང་དང་གྲངས་ཀ་ 1

    index.update()

End Sub