powerclip extract

Hi! I'm newbie in VBA and I can't make a very easy macro..

I need to extract all powerclip contents (from objects and from outlines) on page and delete these.

Can somebody help me?

[Alex]

Here you go...

Sub DeletePowerclips()
    Dim s As Shape
    Dim sr As ShapeRange
    Dim srPowerClips As New ShapeRange
    
    ' Find all powerclips (omit powerclips inside powerclips)
    For Each s In ActivePage.FindShapes()
        If Not s.PowerClip Is Nothing And s.PowerClipParent Is Nothing Then
            srPowerClips.Add s
        End If
    Next s


    ' Now extract and delete contents of the powerclips
    For Each s In srPowerClips
        Set sr = s.PowerClip.ExtractShapes
        sr.Delete
    Next s
End Sub

Thank you for fast reply!

The code works good, but only with shapes, when I have curves in document then I become the error warning: 'This shape is not of the correct type to support this property of method.'
And I need extract powerclips from curves too!