Вытаскивание слов из автофигур

[Busine2009]

Кто-то скопировал из интернета рисунок и в результате каждое слово оказалось в автофигуре (типа надписи). Такие автофигур столько, сколько слов. Можно ли преобразовать эти автофигуры в текст?

Сделать так, чтобы эти слова оказались ниже в столбик

[viter.alex]

Пример файла выложите.
А этому кому-то скажите, что нужно аккуратнее быть с рисунками из Интернета

[Busine2009]

Вот файла, которое...

[viter.alex]

В предложенном файле такой макрос работает.

Sub GetTextFromCaptions()
  Dim oShp As Shape, oCnvItem As Shape
  For Each oShp In ActiveDocument.Shapes 'Перебираем все фигуры в документе
'Если фигура является полотном, т.е. может содержать в себе другие фигуры, _
то перебираем фигуры внутри полотна
    If oShp.Type = msoCanvas Then
      For Each oCnvItem In oShp.CanvasItems
'Если фигура внутри полотна имеет текст, то текст из нее вставляем в конец документа
        If oCnvItem.TextFrame.HasText Then
          ActiveDocument.Range.InsertParagraphAfter
          ActiveDocument.Range.InsertAfter oCnvItem.TextFrame.TextRange.Text
        End If
      Next
'Если в фигуре (не полотне) есть текст, то вставляем его в конец документа
    ElseIf oShp.TextFrame.HasText Then
      ActiveDocument.Range.InsertParagraphAfter
      ActiveDocument.Range.InsertAfter oShp.TextFrame.TextRange.Text
    End If
  Next
End Sub

У этого макроса, по-моему, один недостаток: он не будет работать с фигурами, которые расположены в тексте. В VBA такие фигуры входят в коллекцию InlineShapes.
Я могу посоветовать потренироваться и самостоятельно написать код для работы с InlineShapes.

Примечание: Внутри полотна InlineShapes не может быть.

[Busine2009]

Не могу себя заставить потренироваться.

Спасибо, работает.