Sub Example_Documents()
    ' Этот пример получает ссылку на коллекцию Документов
    ' и отображает информацию о загруженных документах.

    Dim Document As AcadDocument
    Dim msg As String
    msg = vbCrLf
    
    ' Циклически пройдите коллекцию Документов,
    ' и восстановите названия загруженных документов
    For Each Document In Documents
        msg = msg & Document.name & vbCrLf
    Next
    
    ' Дисплей загрузил информацию документа
    If Documents.count > 0 Then
        MsgBox "Загруженные документы: " & msg
    Else
        MsgBox "Нет никаких загруженных документов! "
    End If
End Sub