Get items selected in the browser pane

By Adam Nagy

If you want to find out which items in the browser are selected, then you can simply iterate through all the items in the tree recursively and check each node's Selected property.

The following VBA sample shows this in case of a drawing document: 

Function GetSelectedItems(nodes As BrowserNodesEnumerator) As String
    Dim node As BrowserNode
    For Each node In nodes
        If node.Selected Then
            GetSelectedItems = GetSelectedItems _
                + vbCrLf + node.BrowserNodeDefinition.Label
        End If
        
        GetSelectedItems = GetSelectedItems _
            + GetSelectedItems(node.BrowserNodes)
    Next
End Function

Sub GetSelectedItemsInBrowser()
    Dim doc As Document
    Set doc = ThisApplication.ActiveDocument

    If Not TypeOf doc Is DrawingDocument Then
        MsgBox "Open a drawing document first"
        Exit Sub
    End If

    Dim bp As BrowserPane
    Set bp = doc.BrowserPanes("DlHierarchy")
    
    Dim items As String
    items = GetSelectedItems(bp.TopNode.BrowserNodes)
    
    MsgBox items
End Sub