В отговор на:

---

А иначе - как точно ги искаш в ексела? В коя клетка? Как да са подредени тектсовете? работата е мнооого сложна, и затова в последните 10 версии още не могат да я направят. :-)

---

Public Sub TextToExcel()

    Dim intRow As Integer, strCell As String

    Dim oExcel As Excel.Application, oBook As Excel.Workbook, _

        oSheet As Excel.Worksheet

    Dim obj As AcadEntity, objText As AcadText

    Dim varInsert As Variant

    Dim i As Integer

    Set oExcel = CreateObject("Excel.Application")

    Set oBook = oExcel.Workbooks.Add

    Set oSheet = oBook.Worksheets(1)

    oExcel.Visible = True

    intRow = 1

    For Each obj In ThisDrawing.ModelSpace

        If TypeOf obj Is AcadText Then

            Set objText = obj

            oExcel.Cells(intRow, 1).Value = objText.TextString

            varInsert = objText.InsertionPoint

            intRow = intRow + 1

        End If

    Next obj

End Sub