Исходный код

Option Explicit
Call LinksInfo(ThisObject)


'==============================================================================
' Вывести информацию обо всех связях объекта
'==============================================================================
Sub LinksInfo(Obj)
        Dim i, count, LnkCol, lnk, StrInfo
        
        'Получить ссылку на коллекцию связей объекта
        Set LnkCol = Obj.Links
        count = LnkCol.Count
        
        'Если коллекция пустая, выйти из процедуры
        If count=0 Then Exit Sub
        
        'Сформировать строку с описанием связей объекта
        StrInfo = "Связи объекта """ & Obj.Description & """:" & Chr(13) & Chr(13)

        'перебрать все элементы коллекции...
        For i=0 To count-1
                'Получить ссылку на связь
                Set lnk = LnkCol.Item(i)
                'Описание объекта, с которым связь установлена
                StrInfo = StrInfo & i+1 & ") объект """ & lnk.child.Description & """" & Chr(13)
                'Количество атрибутов данной связи
                StrInfo = StrInfo & "Атрибутов связи: " & lnk.Attributes.Count & Chr(13)
                'Является ли данная связь главной (дочерний объект _создан_ в составе или 
                'добавлена ссылка на него?)
                StrInfo = StrInfo & "Главная связь: " & lnk.Primary & Chr(13)
                'Время создания связи
                StrInfo = StrInfo & "Время создания связи: " & lnk.CreateTime & Chr(13) & Chr(13)
        Next
        
        'Вывести информацию в окно сообщений
        ThisApplication.AddNotify StrInfo
End Sub
'==============================================================================