Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
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
