Программное распознавание формул в документе MS Word

[Eugira]

Можно ли имея VBA и объектную модель MS Word программно распознать в тексте вставленные формулы , сделанные на MS Graph, MS Equation а также OLE-объекты типа таблиц Excel, а также вставленные чужие рисунки типа bmp, jpq,gif ?
Т.е чтобы программа умела:
1) распознать есть ли в тексте Word вообще "посторонние объекты" - формулы, OLE-объекты
2) после распознания определить тип этих объектов
3)взять в буфер копирования из анализируемого документа этот объект

[GSerg]

Код: Выделить всё

dim s as shape, ss as inlineshape

if activedocument.shapes.count then msgbox "Найдены посторонние объекты (аж " & cstr(activedocument.shapes.count) & ")."
for each s in activedocument.shapes
  msgbox "Тип объекта: " & s.type
  s.select
  selection.copy
next

if activedocument.inlineshapes.count then msgbox "Найдены посторонние объекты (аж " & cstr(activedocument.inlineshapes.count) & ")."
for each ss in activedocument.inlineshapes
  msgbox "Тип объекта: " & ss.type
  ss.range.copy
next