Description

Returns an array of tag names of the character styles in all linked libraries of the selected format.

Syntax

object

Required. Object name. Returned by Dim objFormat = Ted.GetFormat or Dim objFormat = Fred.GetFormat.

i

Required. Index in the range of LBound(aTextStyles) To UBound(aTextStyles).

Example

  Dim objFormat As Format = Ted.GetFormat

  Dim objT = Ted.GetActiveTxt

   objFormat.Id = objT.FormatId

   MsgBox(objFormat.DefaultParaCopyFit)

  Dim i As Integer

  Dim str As String = ""

  Dim aTextStyles = objFormat.TextStyles

   str = str & "Text styles: (" & aTextStyles.Count() - 1 & ")" & vbCrLf

  For i = 0 To aTextStyles.Count() - 1

     str = str & " " & aTextStyles(i) & vbCrLf

  Next

Context

Property

See also

NStyleLibs, StyleLib, TextStyles, Macros.