Dim outlineShape As Shape
Dim weldShape As Shape
    
For Each s In sr
        
        Set outlineShape = s.Outline.ConvertToObject
        outlineShape.Fill.UniformColor.CMYKAssign 100, 0, 0, 0
        s.Fill.UniformColor.CMYKAssign 0, 0, 0, 50
        
        ' Set weldShape = outlineShape.Weld(s)    ' не работает! ошибка: Method Weld of object IDrawShape failed
        ' в дебаггере, на строке выше: The referenced object no loger exist in the document
        
Next s