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
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
设置表格右对齐制表符
本文介绍如何使用 BASIC 脚本为表格设置右对齐制表符,包括制表符的位置、对齐方式及填充字符等细节。
128

被折叠的 条评论
为什么被折叠?



