Sub UGACombine()
    ' Recorded 19-Aug-24
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.ConvertToCurves
    Dim grp1 As ShapeRange
    Set grp1 = OrigSelection.UngroupAllEx
    Dim grp2 As ShapeRange
    Set grp2 = grp1.UngroupAllEx
    grp1.CreateSelection
    Dim s1 As Shape
    Set s1 = ActiveSelection.Combine
    Dim grp3 As ShapeRange
    Set grp3 = s1.UngroupAllEx
    grp3.CreateSelection
    Dim s2 As Shape
    Set s2 = ActiveSelection.Combine
    ' Recording of this command is not supported: StyleModify
    
End Sub