Description

Returns true if the TopAdvance property has a value.

Syntax

object

Required. Object name, returned by Text.GetTableCell.

Examples

This script uses HasTopAdvance to determine if it is possible to increment the top margin of all selected cells for 1pt;

Dim objTableCell = Text.GetTableCell

If objTableCell.HasTopAdvance then

 objTableCell.TopAdvance = objTableCell.TopAdvance + 1000

end if

Text.SetTableCell (objTableCell)

 

This script to set the top margin of all the selected cells to 6 points:

Dim objTableCell = CreateObject("gn3ted.TableCell")

Ted.AttachObject objTableCell

objTableCell.Reset

objTableCell.TopAdvance = 6000

Text.SetTableCell (objTableCell)