Description

Returns the default text status of the text being edited.

Available in Ted and in Fred.

Syntax

object

Required. Object name. Returned by Ted.GetActiveTxt.

Example

  If Ted.HasActiveTxt Then

    Dim objTxt = Ted.GetActiveTxt

    Dim objDefaultPS = objTxt.DefaultParaStatus

    Dim hLeading = objDefaultPS.Leading

    Dim objDefaultTS = objTxt.DefaultTextStatus

    Dim hSize = objDefaultTS.CharH

     MsgBox("Leading=" & hLeading & " Point size=" & hSize)

  End If

Context

Text object

See also

GetDefaultParaStatus Method