Как выделить объекты по имени в CorelDraw через макрос?

Question

[F1eex]

В документе есть объекты. Объекты разные по свойствам, но у некоторых задано имя - "Фигура". Как выделить только те, что с именем "Фигура" через макрос (VBA)?

Answer 1

[idShura]

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

Comments

[F1eex]

Спасибо вам за ответ, отмечаю как решение. Ваш вариант не работает, пришлось немного доработать:

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

ActivePage нужно добавить между ActiveDocument и Shapes.