Исходный текст

Option Explicit
Call GetUplinkAttributes(ThisObject)

'==============================================================================
' Вывести информацию об атрибутах связи объекта со всеми его контейнерами
'==============================================================================
Sub GetUplinkAttributes(Obj)
        Dim UplinksCol, ObjRef, attr, Container, strInfo        
        
        'Получить ссылку на коллекцию объектов, в состав которых входит наш объект
        Set UplinksCol = Obj.Uplinks
        
        'Для каждого контейнера...
        For Each Container In UplinksCol 
                
                'Получить ссылку на наш объект по хэндлу из коллекции (состава контейнера)
                Set ObjRef = Container.Content.Item(Obj.Handle)
                strInfo = ""
                
                'Получить информацию обо всех атрибутах связи, если они есть.
                For Each attr In ObjRef.LinkAttributes
                        strInfo = strInfo & attr. Description & ", значение: " & attr.Value & Chr(13)
                Next
                
                If strInfo <> "" Then
                        strInfo = "Атрибуты связи с объектом """ & Container.Description & """:" &_
                                                 Chr(13) & strInfo
                        ThisApplication.AddNotify strInfo
                Else
                        ThisApplication.AddNotify "Атрибуты связи с объектом """ &_
                             Container.Description & """ не определены."
                End If
        Next
End Sub
'==============================================================================