BigThermik

Sub SelectObjectByName()
    Dim s As Shape
    For Each s In ActiveDocument.Shapes
        If s.Name = "Фигура" Then
            s.Selected = True
        End If
    Next s
End Sub