Listing Tables and Indexes

Here’s a piece of code I adapted from the “Programming Guide to BASIC.” It didn’t actually prove to get me anywhere I wanted to go, but it might help in some other effort. This one simply iterates all indexes and tables in a document.

'Just a simple routine I wrote along the way as I was learning document structure
Sub ShowIndex
Dim Doc As Object
Dim Indexes As Object
Dim Index As Object
Dim I As Integer
Dim C As Integer
	
Doc = StarDesktop.CurrentComponent
Indexes = Doc.getDocumentIndexes()
C = Indexes.getCount() - 1
for I=0 to C
	Index = Indexes.getByIndex(I)
	MsgBox Index.Title + \" - \" + Index.ContentSection
next I
End Sub