Made myself a little macro that helps but still not full proof.
Sub CombineUltra()
Dim s As Shape, n As Node, sr As ShapeRange, crv As Curve, sp As SubPath
For Each s In ActiveSelection.Shapes
If s.Type = cdrCurveShape Then
If s.FillMode = cdrFillWinding Then...