將使用中的元件定位,以便讀取和設定其內容。
ThisComponent
Sub Main
REM 更新文件中的「目錄」
Dim allindexes, index As Object
allindexes = ThisComponent.get IBM® Lotus® Symphony™ DocumentsIndexes()
index = allindexes.getByName ("Table of Contents1")
REM 使用預設目錄名稱和數字 1
index.update ()
End Sub