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

Не нужно ничего конвертировать, открываешь файл в corel и сохраняешь картинки в нужном тебе формате и разрешении. Текст можно скопировать в нужную тебе программу.

Попробуй вот так:

For Each s In ActivePage.Layers("circuits").Shapes.All
      s.Outline.SetNoOutline
Next s