REM  *****  BASIC  *****

Option VBASupport 1
Option Explicit

Sub EnableOutlining
	Dim Doc, Orientation, sheet
   	Dim CellRangeStruct As new com.sun.star.table.CellRangeAddress
    
    Doc = ThisComponent
    CellRangeStruct.EndColumn = 15
    CellRangeStruct.EndRow = 15
    CellRangeStruct.Sheet = 0
    CellRangeStruct.StartColumn = 3
    CellRangeStruct.StartRow = 3
    orientation = com.sun.star.table.TableOrientation
    sheet = Doc.Sheets.getByIndex(0)
	sheet.group(CellRangeStruct, Orientation.ROWS)
	sheet.hideDetail(CellRangeStruct)
End Sub