Description

Maximum vertical space that can be subtracted above the tabulation rows when vertically justifiyng the whole text.

It is either a value in millipoints not greater than 65000 = 65pt or one of the five special 'infinite' values: InfA = 65531, InfB = 65532, InfC = 65533, InfD = 65534, InfE = 65535.

Syntax

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

This script creates a new table with 4 columns and 8 rows. and the vertical space that can be subtracted below the tabulation rows when vertically justifiyng the whole text as 3pt:

Dim objNewTable = Text.GetNewTable

objNewTable.NColumns = 4

objNewTable.NRows = 8

objNewTable.Sub(0) = 3000

objNewTable.Sub(1) = 3000

objNewTable.Sub(2) = 3000

objNewTable.Sub(3) = 3000

Text.InsTable (objNewTable)

See also

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

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

Add and Sub on the row level.

TopAdd and BottomAdd on the cell level.