Use this example to demonstrate the functions of this object:

 

If Ted.IsLocalTxt Then

 dim objT = Ted.GetCurrentLocalTxt

 MsgBox (GetTxtDesc(objT))

End If

 

Function GetTxtDesc(objT)

 Dim str

 

 str = str & "Text Id=" & objT.Id

 str = str & chr(13) & chr(10)

 str = str & "Text Name=" & objT.Name

 str = str & chr(13) & chr(10)

 str = str & "Text Description=" & objT.Description

 str = str & chr(13) & chr(10)

 str = str & "Text BasketId=" & objT.FolderId

 str = str & chr(13) & chr(10)

 str = str & "Text TypeId=" & objT.TypeId

 str = str & chr(13) & chr(10)

 str = str & "Text FormatId=" & objT.FormatId

 str = str & chr(13) & chr(10)

 str = str & "Text FormatName=" & objT.FormatName

 str = str & chr(13) & chr(10)

 str = str & "Text WorkstateId=" & objT.WorkstateId

 str = str & chr(13) & chr(10)

 str = str & "Text IsNew=" & objT.IsNew

 str = str & chr(13) & chr(10)

 str = str & "Text IsChecked=" & objT.IsChecked

 str = str & chr(13) & chr(10)

 str = str & "Text IsChanged=" & objT.IsChanged

 str = str & chr(13) & chr(10)

 str = str & "Text Status=" & objT.Status

 str = str & chr(13) & chr(10)

 str = str & "Text JustErrorN=" & objT.JustErrorN

 str = str & chr(13) & chr(10)

 str = str & "Text OverN=" & objT.OverN

 str = str & chr(13) & chr(10)

 str = str & "Text OverH=" & objT.OverH

 str = str & chr(13) & chr(10)

 str = str & "Text Depth=" & objT.Depth

 str = str & chr(13) & chr(10)

 str = str & "Text NC=" & objT.NC

 str = str & chr(13) & chr(10)

 str = str & "Text NW=" & objT.NW

 str = str & chr(13) & chr(10)

 str = str & "Text NL=" & objT.NL

 str = str & chr(13) & chr(10)

 str = str & "Text NP=" & objT.NP

 str = str & chr(13) & chr(10)

 str = str & "Text NNP=" & objT.NNP

 str = str & chr(13) & chr(10)

 str = str & "Text OverfullN=" & objT.OverfullN

 str = str & chr(13) & chr(10)

 str = str & "Text WordsInArea=" & objT.WordsInArea(0)

 str = str & chr(13) & chr(10)

 str = str & "Text IsLinked=" & objT.IsLinked

 str = str & chr(13) & chr(10)

 

 GetTxtDesc = str

End Function