Re: Удоление определенных объектов не разбивая групп

Написал ManYacK в 30/03/2011 9:09:43

записывать своя действия в макрос не трудно. от что получилось:

Sub Macro1()
'
' Recorded 30.03.2011
'
' Description:
'
'
ActiveDocument.MasterPage.DesktopLayer.Shapes(270).Shapes(15).Delete
ActiveDocument.MasterPage.DesktopLayer.Shapes(271).Shapes(15).Delete
ActiveDocument.MasterPage.DesktopLayer.Shapes(272).Shapes(15).Delete
ActiveDocument.MasterPage.DesktopLayer.Shapes(273).Shapes(15).Delete
ActiveDocument.MasterPage.DesktopLayer.Shapes(274).Shapes(15).Delete
End Sub

к сожалению Шайпсы все пронумерованы. Кто может подсказать, как обучить макрос брать не определенный шэйпс, а просто "следующий"?