Description

Width of the tabulation column in millipoints.

Syntax

object

Required. Object name, returned by Text.GetTableColumn.

mValue

Value of width.

Examples

1. This script increments the width of the selected column(s) for 1pt.

Dim objTableCol = Text.GetTableColumn

if objTableCol.HasWidth then

 objTableCol.Width = objTableCol.Width + 1000

end if

Text.SetTableColumn (objTableCol)

2. Assuming the nCols is the number of columns (returned by the nColumns property of the table object), and that the cw(..) array contains the desired column widths in millipoints, this script defines the width of all columns and set it to fixed, so the width won't change if you change the width of the justification area.

for t = 1 to nCols

 Text.TableMoveCursor 1, t

  dim objTableCol = Text.GetTableColumn

  objTableCol.Width = cw(t)

  objtablecol.fixed = true

  Text.SetTableColumn (objTableCol)

next