поиск PowerClip и в его содержимом

Написал GoodvinVV в 25/02/2010 19:05:41

Есть документ, страницы, нужно находить "PowerClip"ы и проверять содержимое на присутствие допустим еще одного "PowerClip"а и других обьектов например с оверпринтом. помогите с кодом
Dim i
For i = 1 To ActiveDocument.Pages.Count
For Each s In ActiveDocument.Pages(i).Shapes.FindShapes (???????)

If s.?Поверклип Then
MsgBox "Ура нашелся!!"
Dim t
For t = 1 To ActiveDocument.Pages.Count
For Each w In ActiveDocument.Pages(i).Shapes.FindShapes

If w."градиент" Then
MsgBox "Пантоновый градиент оверпринтом!!!!"
End If

Exit For
End If
Next q

End If
Next s
Next i