Sub Example_PaperSpace()
    ' Этот пример устанавливает переменную pspace в коллекцию объекта пространства листа.
    
    Dim pspace As AcadPaperSpace
    Set pspace = ThisDrawing.PaperSpace
    
End Sub