Description

Returns the value of the linked status of the current article. The returned values are

•-1 if no current article

•0 if there is current article, but no its element is linked

•1 if one or more elements are linked

Syntax

Example

      ' check if there's linked article and if it has images

      Dim bRelink As Boolean = False

      Dim bArtHasImg As Boolean = False

      If isCurArticleLinked() = 1 Then

        bRelink = True

        Dim oA = Fred.GetActiveArticle

        For i = 1 To oA.NTxts - 1

          If oA.HasRefObj(i) Then

            Dim objObj = oA.GetRefObj(i)

            If objObj.ObjectTypeName = "img" Then bArtHasImg = True

            Exit For

          End If

        Next

      End If