openoffice在当前段落插入制表位

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

Sub Main
    sel = thiscomponent.getCurrentController().getSelection().getByIndex(0)
    Dim tab(0 To 1) As New com.sun.star.style.TabStop
    For j =LBound(tab) To UBound(tab)
        tab(j).Alignment = com.sun.star.style.TabAlign.RIGHT
        tab(j).DecimalChar = ASC(".")
        tab(j).FillChar = 32
        tab(j).Position = (j+1) * 1000
    Next
    sel.ParaTabStops = tab

End Sub