[AS] Script Label Items in a Group

Question

Hi all,
I have a group of shapes that, when grouped together in Indesign, form an object.  This grouped object is script labeled "special".  I am trying to script label each of the individual parts of this grouped object "special" so that if users ever mistakenly ungroup the object, I can still manipulate all items with the "special" label...which is effectively my original grouped object.
The catch is that I need to do this labeling with a script because I have thousands and thousands of files I'm working with.  I'd love it if something like this worked (but it doesn't):
tell application "Adobe InDesign CS3"
set theObject to page item "special" of document 1
set theShapes to every page item of all page items of theObject
set label of theShapes to "special"
end tell
The problem I keep running into is that it seems when an object is grouped, all the objects inside that group become, for all practical purposes, invisible.  The line "set theshapes to every page item of all page items of theObject" returns an empty list "{ }" as though there ARE no items making up the group.
So then I thought I'd take a more tactile approach.  Select it, ungroup it, label it, group it back:
tell application "Adobe InDesign CS3"
set theObject to page item "special" of document 1
select theObject
ungroup selection
set label of selection to "special"
group selection
end tell
The problem with this approach is that after ungrouping the object with a script, there is no longer a selection as there is when doing the same by hand, so trying to set the label of a selection that does not exist produces an error.  Grrrrr.
Friends, I know this can be done, but I need a little outside perspective on this to help me figure this one out.  As always, thanks in advance for your help!

Answer 1

OK. Got it working but I'm not sure why. I went back to the bigger script of which the below is a part. And it works fine. I just don't understand why.
tell application "Adobe InDesign CS4"
     activate
     set myDocument to active document
     set myPage to page pageNum of myDocument
     set active page of layout window 1 to myPage
     if not (exists library "Logowear_Lib.indl") then
          set theFile to open tagsLib
     end if
     set assetPlacer to item 1 of (place asset asset "3_12:13" of library "Logowear_Lib.indl" on myDocument)
     move assetPlacer to myPage
     move assetPlacer to myCoordinates
     set color_code_counter to 5
     set color_box_counter to 1
     tell myDocument
          repeat color_counter times
               set theColorCode to item color_code_counter of Style_List
               set oldLabelName to ("CW" & color_box_counter)
               set newLabelName to my makeImageName(theSap, theColorCode)
               set label of (object reference of every item of all page items of page pageNum of myDocument whose label = oldLabelName) to newLabelName
               set color_code_counter to (color_code_counter + 2)
               set color_box_counter to (color_box_counter + 1)
          end repeat
     end tell
end tell