Типов таких объектов раз два и обчелся, я кроме растров сходу и не вспомню какие еще мешаликоторый мешает.
Во первых, объекты размером с пиксел так же хорошо видны в диспетчере объектов как и большие, а во вторых, есть же еще поиск/замена по типам объектовА ты никогда не видел растровые объекты размером в пиксель?
SymbolТипов таких объектов раз два и обчелся, я кроме растров сходу и не вспомню какие еще мешали
макросом их ...Symbol
Private Sub Go3_Click()
Dim s As Shape
Dim sr As ShapeRange
Set sr = ActivePage.Shapes.FindShapes(Query:="@type = 'symbol'")
For Each s In sr.Shapes
s.Symbol.RevertToShapes
Next s
End Sub
Это деструктивный код пытающийся радикально избавиться от всех символов на текущей странице, но не залезающий в PowerClip'ы и т.п.макросом их ...
Sub del_symbs()
Dim sd As SymbolDefinition
For Each sd In ActiveDocument.SymbolLibrary.Symbols
For Each symb In sd.Instances
symb.Symbol.RevertToShapes
Next symb
Next sd
End Sub
У меня случай был не тот ... никто символов специально не заводил и работать с ними в дальнейшем не собирался, а получались они вследствии импорта в документ сторонних ( не кореловских) клиартов. Разумеется, что поверклипами там и не пахло. НоПо нормальному, в описанной ситуации
ответ неверный ... просто надо начать тащить, а потом нажать CTRLОТВЕТ: Рядом с кучей объектов нарисовать круг или квадрат, выделить его и кучу (клик+Shift) и тащить именно круг или квадрат зажав Ctrl.