Description

Returns the tag name of the style associated with the object. Empty string if there is no associated style (e.g. the object has been just created.

Syntax

object

Required. Object name, returned by Text.GetTextStyle and GetParaStyle.

strName

Required. Tag name of the style

Example

  Public Overridable Sub EditResizeHeadDecr()

    Dim objStyle = Text.GetParaStyle

    If objStyle.GetName = "" Then

      objStyle.SetName("head3")

      objStyle.SetPar(0, Units.ToVal("36pt"))

      Text.SetParaStyle(objStyle)

    End If

    HeadSize(objStyle, 1004, -1, 2000, 96000)

    objStyle.Dispose()

  End Sub