Description

Updates an existing table obtaining the attributes from the table object created by GetCurTable.

Syntax

obj1

CurTable object specifying the table attributes

Return value

Error code

Context

Text designer commands

Example

Dim oTable = Text.GetCurTable

oTable.ExtRuleColor(0) = "PANTONE 181 CVU" ' top

oTable.ExtRuleColor(1) = "M" ' bottom

oTable.ExtRuleColor(2) = "Y" ' left

oTable.ExtRuleColor(3) = "K" ' right

oTable.ExtRuleWidth(0) = Units.ToVal("1pt") ' top

oTable.ExtRuleWidth(1) = Units.ToVal("2pt") ' bottom

oTable.ExtRuleWidth(2) = Units.ToVal("3pt") ' left

oTable.ExtRuleWidth(3) = Units.ToVal("4pt") ' right

oTable.ExtRuleGray(0) = 100 ' top

oTable.ExtRuleGray(1) = 90 ' bottom

oTable.ExtRuleGray(2) = 80 ' left

oTable.ExtRuleGray(3) = 70 ' right

oTable.ExtRuleDash(0) = "Dotted" ' top

oTable.ExtRuleDash(1) = "Solid (butt cap)" ' bottom

oTable.ExtRuleDash(2) = "Dashed" ' left

oTable.ExtRuleDash(3) = "Grid" ' right

Text.UpdateTable oTable

See also

InsTable