Description

Select a new format for the current text.

Syntax

str1        

Name of the new format

Return value

Error code

Example

This script sets the same format to all article elements

Din nIdx as Integer

If Text.TxtFormatDlg = EOK Then

  dim strname as String = ""

  If Text.HasActiveTxt Then strname = Text.GetActiveTxt.FormatName

If Text.hasactivearticle And strname <> "" Then

    Dim objArt = Text.GetActiveArticle

    nIdx = objArt.GetCurTxtIdx

    For i=0 To objArt.NTxts-1

      objArt.GotoTxt (i,True,False)

      Text.TxtFormatName (strname)

    Next

    If nIdx >= 0 Then

      objArt.Gototxt (nIdx,True,False)

      Text.TxtFormatName (strname)

    Else

      If objArt.NTxts > 0 Then

        objArt.GotoTxt (0,True,False)

        Text.TxtFormatName (strname)

      End If

    End If

End If

End If

Context

Text designer commands

See also

TxtFormatDlg, TxtFormat, TxtFormatList, GetFormat, Format object