Working with selection

Selected objects in navigator are returned as:

Dim selectedObjects As IGenericAttrObjList = Main.GetSelectedObjects

or as

Dim selectedObjects As IGenericAttrObjList = Designer.Main.GetSelectedObjects

wherever main. is not available.

The below code shows an implementation:

Public Sub MySub()

    Using New WinUI.Controls.BusyCursor

    Dim selectedObjects As IGenericAttrObjList = Main.GetSelectedObjects

    If selectedObjects IsNot Nothing Then

      For Each selectedObject In selectedObjects

        'do somethin

      Next

    End If

    End Using

End Sub

You can check for the number of selected objects through Main.GetSelectedObjects.Count.

Note:

Main is not defined everywhere. The above works in: Shell.vb, Page.vb (PageDesignerAddIn), Ted.vb (ted4mainaddin), Fred.vb (Fredmainaddin

The above does not work in: Page.vb (PageTxtDesignerAddIn), Article.vb (ArticleMerge, TxtDesignerAddIn, TxtDesignerBase, TxtDesignerToolbar), PubDest.vb, Ted.vb (ted4windowaddin, utilsbase), fred.vb (fredwindowaddin,

The above requires that Main is defined as:

 Public ReadOnly Property Main() As IMain

    Get

      Return Designer.Main

    End Get

  End Property

Otherwise, call it as:

Dim selectedObjects As IGenericAttrObjList = Designer.Main.GetSelectedObjects

Current article is returned by Dim oA = Ted.GetActiveArticle or Dim oA = Fred.GetActiveArticle. You can check if one's available by using Ted.HasActiveArticle or Fred.HasActiveArticle. In Fred4, you can also use Fred.GetCurArticleId.