expression.Ink
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example specifies that the color of the first text range on page one of the active publication should be assigned to spot plate two.
ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Font.Color.Ink = 2