openoffice在目前段落插入制表位

openoffice在当前段落插入制表位REM*****BASIC*****Sub Mainsel thiscomponent.getCurrentController().

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