Documents property example

Sub Documents_Example()

' This example obtains a reference to the Documents collection

' and displays information about the loaded documents.

    Dim thisDocument As AcadDocument

    Dim allDocuments As AcadDocuments

    Set allDocuments = ThisDrawing.Application.Documents

    Dim sBuf As String: sBuf = vbCrLf

    For Each thisDocument In allDocuments

        sBuf = sBuf & thisDocument.Name & vbCrLf

    Next

    If allDocuments.count > 0 Then

        MsgBox "The loaded documents are: " & sBuf

    Else

        MsgBox "There are no loaded documents!"

    End If

End Sub