Sub SelectObjectByName()
Dim s As Shape
For Each s In ActiveDocument.ActivePage.Shapes
If s.Name = "Фигура" Then
s.Selected = True
End If
Next s
End Sub
Что определило разную судьбу близнецов - мы не узнаем никогда.
Корпусировка и сборка чипа, на этом этапе его параметры задаются перемычками (их пережигают лазером, ставят резисторы или еще как - это уже конкретное инженерное решение, варьируется от предпочтений производителя.