Sub Example_WindowTitle()
    ' Этот пример циклически проходит коллекцию документов и использует
    ' свойство WindowTitle, чтобы создать список всех открытых документов.

    Dim DOC As AcadDocument
    Dim msg As String
    
    ' Если нет никаких открытых документов, то выйдите
    If Documents.count = 0 Then
        MsgBox "Нет никаких открытых документов! "
        Exit Sub
    End If
    
    msg = vbCrLf & vbCrLf   ' Start with a space
    
    ' Циклически пройдите все открытые рисунки, и получите заголовок окна каждого рисунка
    For Each DOC In Documents
        msg = msg & DOC.WindowTitle
    Next
    
    ' Покажите список открытых рисунков
    MsgBox "Открытые заголовки рисунков: " & msg
End Sub