ExtRuleColor Property

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

Description

The name of the color of the border rules.

Syntax

object.ExtRuleColor(iSide) [ =strColorName ]

object

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

iSide

0 = Top, 1 = Bottom, 2 = Left, 3 = Right

strColorName

Color name.

Examples

On a new table

This script creates a new table with 4 columns and 8 rows, and set colors, weight, tint, and dash for all four sides of the border of the table:

Dim oTable = Text.GetNewTable

otable.NColumns = 4

oTable.NRows = 8

oTable.ExtRuleColor(0) = "C" ' top

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

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

oTable.ExtRuleColor(3) = "K" ' even rows, defrow -1

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") ' even rows, defrow -1

oTable.ExtRuleGray(0) = 100 ' top

oTable.ExtRuleGray(1) = 90 ' bottom

oTable.ExtRuleGray(2) = 80 ' left

oTable.ExtRuleGray(3) = 70 ' even rows, defrow -1

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

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

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

oTable.ExtRuleDash(3) = "Grid" ' even rows, defrow -1

Text.InsTable (oTable)

On an existing table

This script edits the current table, setting colors, weight, tint, and dash for all four sides of the border of the table:

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)