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