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

опечатка в cdrNoneShape (не влияющая) Стоит не удалять сразу, а собрать в коллекцию для последующего удаления сразу всех, тогда можно ещё и не заморачиваться с обратным циклом Dim ss As New ShapeRange Sub Remover() On Error Resume Next ActiveDocument.BeginCommandGroup "Remove SVG data"...

Интернеты для избавления от "SVG data" посоветовали сохранение в *.cmx. На тесте сработало. Можно и другие форматы попробовать. Если у Вас многостраничник, или хочется одной кнопкой, то можно автоматизировать постраничный экспорт-реимпорт

В начале было написано удалить только скрытые и залоченные. На Вашем скрине присутствуют и нескрытые разлоченные SVG data. Если нужно удалять все SVG data, я бы попробовал удалять шейпы по имени, а не типу и т.п. Вы бы лучше небольшой подопытный файлик приложили, чтобы самому тесты не городить...

В последних версиях завели сходный дублирующий функционал - Symbols, в чём-то лучше, в чём-то хуже хуже - не интерактивен, при редактировании Clone видны изменения сразу на всех экземплярах лучше - можно добавлять объекты к родителю, есть докер Символов ну и другие отличия

Если только группы и клипы (бывают и другие виды вложения), то примерно так: Sub Unlocker() On Error Resume Next ActiveDocument.BeginCommandGroup "Unlock all" Dim p As Page For Each p In ActiveDocument.Pages P_unlock p.Shapes Next p ActiveDocument.EndCommandGroup End Sub Private...

Добавьте в начало кода Optimization = True в конец Optimization = False ActiveWindow.Refresh Refresh сравните время. Если не сильно помогло, будем думать дальше

Обычно авторы макросов сохраняют настройки в реестр, реже в ini-файлы. Также можно сохранять часть информации в самом кореловском документе.

Вживую не щупал, а только описание посмотрел Имхо, для fully random 360° должно быть.

По условию задачи был объект с дырками, а объекта из разнокалиберных ненакладывающихся контуров не было.

Если у вас по условиям задачи был объект с дырками, то после его разъединения дырки будут заведомо меньше по размеру, что элементарно проверяется.

Ctrl+A Объект-Контур-Преобразовать обводку в кривые Панелька Обработка контуров (Pathfinder) - вторая кнопка снизу - Обрезка

Модераторам не требуются разрешения на закрытие тем

ActiveDocument.SaveAs ActiveDocument.Filepath, SaveOptions

var w = new ActiveXObject("Word.Application"); w.Visible=true; w.Documents.Add(); w.Selection.TypeText("А мужики и не знали..."); Другое дело, что из ИнДизайна ActiveXObject не заработает

Загуглить vb2js, vbs2js, vbs to js и т.п. перепробовать несколько вариантов, лучшие результаты скрестить, обработать киянкой и рашпилем

Попробуйте ActiveShape.Text.Story.Straighten

Осталось установить поддерживается ли это в [X4 и ранее], и, соответственно, посоветовать ТС сменить версию или оно уже и так есть.

ТС затаскивает в корел мултичанел картинку. В картинке есть спотовые цвета. ТС хочет красить этими цветами векторные объекты не вылавливая их, не набирая имён. Так я его понял. В Х6 при импорте эти спотовые цвета попадают в палитру документа (подхватываются). Или можно их позже добавить...

А кто говорит о Mixed? ТС не говорит. Каждый канал отдельно подхватывается, могу красить в цвета каналов.

Свежие корелы (проверял на X6) подхватывают цвета из мультичанелов в палитру, а [X4 и ранее] под рукой нету, посмотреть/вспомнить с какой версии умеет.