🚀 go-pugleaf

My goal with this script is to find all grouped page items, ungroup them, and eventually resize select page items and re-group them. But, so far I've had no luck with the first part. Any suggestions? Thanks for the help!

Brian
My code:

Set InDWindow = InD.ActiveWindow
Set InDSpread = InDWindow.ActiveSpread
Set InDDocument = InD.ActiveDocument
Set InDPage = InDDocument.Pages.Item(1)
InDWidth = InDDocument.DocumentPreferences.PageWidth

' This begins the looping ungrouping procedure

For InDGroupCount = 1 To InDDocument.Groups.Count

Set InDG = InDDocument.Groups(InDGroupCount)
Set InDUnG = InDDOcument.Group.Ungroup(InDG)

* ************** I've changed the ungrouping part many times: this is what I have at the moment.