[CDR 2017-2021] Удалить 5 строк из выделенного текста.

[tohaa]

Добрый день.
Есть выделение. Оно текст.
Хочу удалить первые пять строк.
Как записать это коротко и чтобы работало быстрее чем ActiveLayer.Shapes.FindShapes(Type:=cdrTextShape) ?

 

[dastin]

Есть выделение.

на кой? перебирать шейпы на активном слое в поисках cdrTextShape, если уже известно что это

Оно текст.

 

[_MBK_]

Я правильно понимаю, у вас текст выделен? Тогда зачем шейпы искать, сразу от селекшна и смотрите.

 

[dastin]

Sub dTex()
Dim ZZZ As Shape
Set ZZZ = ActiveDocument.ActiveShape
ZZZ.Text.Story.Lines(1, 5).Delete
End Sub

 

[tohaa]

Да я пытался с activeselection.. Спасибо за подсказку!