BottomAdd Property

Build 1501 on 14/Nov/2017  This topic last edited on: 23/Mar/2016, at 12:23

Description

Maximum space that can be added below the text of the tabulation cells when vertically justifying the cells themselves.

See also TopAdd for above and Add for row-level.

Syntax

object.BottomAdd(iRowType) [ =mValue | strValue ]

object

Required. Object name, returned by Text.GetNewTable or Text.GetCurTable.

iRowType

0 = Odd (defrow 0), 1 = First (defrow -2), 2 = Last (defrow -3), 3 = Even (defrow -1).

Please note that if you want to set the same values for entire table, use iRowType = 0, that corresponds to odd rows, but if it's only specified, than it sets all row types.

mValue

Value of space, in millipoints not greater than 65000 = 65pt

strValue

Value of space as one of the five special 'infinite' values: InfA = 65531, InfB = 65532, InfC = 65533, InfD = 65534, InfE = 65535

Example

On a new table

This script creates a new table with 4 columns and 8 rows, and the maximum space that can be added below the text of the tabulation cells when vertically justifying the cells themselves is set as 1pt for all cells in odd rows, 2pt for for all cells in the first row, 3pt for for all cells in the last row, 4pt for for all cells in even rows:

Dim oTable = Text.GetNewTable

otable.NColumns = 4

oTable.NRows = 8

oTable.BottomAdd(0) = units.toval("1pt") ' odd rows, defcell 0 after defrow 0

oTable.BottomAdd(1) = units.toval("2pt") ' first row, defcell 0 after defrow -2

oTable.BottomAdd(2) = units.toval("3pt") ' last row, defcell 0 after defrow - 3

oTable.BottomAdd(3) = units.toval("4pt") ' even rows, defcell 0 after defrow -1

Text.InsTable (oTable)

On an existing table

This script edits the current table setting the maximum space that can be added below the text of the tabulation cells when vertically justifying the cells themselves  as 11pt for for all cells in odd rows, 12pt for for all cells in the first row, 13pt for for all cells in the last row, 14pt for for all cells in even rows:

Dim oTable = Text.GetCurTable

oTable.BottomAdd(0) = units.toval("11pt") ' defcell 0 after defrow 0

oTable.BottomAdd(1) = units.toval("12pt") ' defcell 0 after defrow -2

oTable.BottomAdd(2) = units.toval("13pt") ' defcell 0 after defrow - 3

oTable.BottomAdd(3) = units.toval("14pt") ' defcell 0 after defrow -1

Text.UpdateTable (oTable)

See also

Add and Sub for the justification of whole text on the table level.

TopAdd for the vertical justification of cells on the table level.

Add and Sub on the row level.

TopAdd and BottomAdd on the cell level.