Результаты поиска

Ответ: копировать данные с EXCEL в CorelDRAW Sub ReplaceText(ShapeName As String, ReplaceWith As String) Dim s As Shape For Each Layer In ActivePage.Layers Set s = Layer.FindShape(ShapeName) If Not s Is Nothing Then Shape.Text.Replace...