[CDR X5-X8] Помогите вытащить текст

[Erchizo]

Задача: записать в массив все тексты на текущем листе
Что сделано:

Sub ТекстБлок()
    Dim Bl As Shape
    Dim expText As New Collection

        ActivePage.Shapes.All.CreateSelection
        ActiveSelection.UngroupAll

    For Each Bl In ActivePage.ActiveLayer.Shapes
      If Bl.Type = cdrTextShape Then
        expText.Add Bl.Text.Selection.Text
      End If
    Next Bl

End Sub

Проблема: массив expText пустой (((((((
Заранее спасибо

 

[_MBK_]

Bl.Text.Selection.Text

С чего вы взяли, что это свойство содержит текст объекта?
Слабо загрузить отладчик и объект Bl через Watch распотрошить?

 

[_MBK_]

Макрос. Получить содержимое фигурного текста.

 

[Erchizo]

Спасибо, все ок !!