Totally Confused - Group of 1 objects?

[knowbodynow]

I have a 16 page CorelDraw 12 document. Each page has a piece of clipart (one group of various objects) and a single piece of artistic text grouped together. I just tried the following macro

Sub ungroup()
    
    Dim p As Page
    
    For Each p In ActiveDocument.Pages
        ActivePage.Shapes.All.CreateSelection
        Dim grp1 As ShapeRange
        Set grp1 = ActivePage.Shapes.All.UngroupEx
    Next p
    
End Sub

After running the macro Draw is telling me that on each page I have:

Group of 1 Objects on Puzzle

Puzzle is the name of the layer. If I ungroup the group of 1 object I end up back where I started with a group of two objects on the page. What am I doing wrong?

What I want to do is ungroup the text and leave the clipart group intact.

Thanks,

Chris (Hunt)

[ddonnahoe]

Sub ungroup()
    
    Dim p As Page
    
    For Each p In ActiveDocument.Pages
        ActivePage.Shapes.All.CreateSelection
        Dim grp1 As ShapeRange
        Set grp1 = ActivePage.Shapes.All.UngroupEx
    Next p
    
End Sub

Could be written as...

Sub ungroup()
    
    Dim p As Page
    
    For Each p In ActiveDocument.Pages
        ActivePage.Layers.Item("Puzzle").Activate
        ActivePage.Shapes.All.UngroupAll
    Next p
    
End Sub

There is no need to create a selection, just apply the changes directly to the shapes. The only reason you would need to create a selection is if you wanted to recall it later, but since you have ungrouped the shapes, the selection range no longer exists.

[Alex]

Try adding p.Activate before doing anything with the shapes on a page. This ensures that the page is active before you do something. Normally this should be your concern as CorelDRAW should do it autmatically, but there are some issue where this step might be missing which could cause problems.

Sub Ungroup()
    Dim p As Page
    For Each p In ActiveDocument.Pages
        p.Activate
        ActivePage.Shapes.All.Ungroup
    Next p
End Sub

[Alex]

I just realized something. You are using ActivePage while looping through different pages. This means that if your active page was page 1, looping through other pages will not change the active page (unless you use Activate method I mentioned earlier). You need to use the reference to your page used in the loop, that is, p.

Here is the revised code:

Sub Ungroup()
    Dim p As Page
    For Each p In ActiveDocument.Pages
        p.Shapes.All.Ungroup
    Next p
End Sub

[knowbodynow]

Thanks for the replies. After some testing I realise that some other part of my total code was causing the weird message. I've adjusted it and it seems to be working fine now.

Best wishes,

Chris