Description

Returns true if the RuleGray property has a value.

Syntax

object

Required. Object name, returned by Text.GetTableColumn.

Example

This script toggles the shade of vertical rules between 100% or 50%.

Dim objTableCol = Text.GetTableColumn

if objTableCol.HasRuleGray then

 if objTableCol.RuleGray <> 100 then

    objTableCol.RuleGray = 100

  else

    objTableCol.RuleGray = 50

  end if

else

  objTableCol.RuleGray = 50

end if

Text.SetTableColumn (objTableCol)