Description

Returns the id of the selected linked style library.

Syntax

object

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

i

Required. Library index index in the range of 0 to NStyleLibs -1

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 = ""

  For i = 0 To objFormat.NStyleLibs - 1

     str = str & objFormat.StyleLibId(CShort(i)) & " "

  Next

Context

Property