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

Добавьте в начало кода 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 и ранее] под рукой нету, посмотреть/вспомнить с какой версии умеет.

.SelectableShapes - не найдёт залоченные тексты

Недопоправил текст :) Несколько проходов хотел предложить для захвата дополнительных Parents, а уже не для вырезания Links (как попало в текстовку)

Попробуйте в дополнение к правилу на скрине в окошке Search for... написать "links_" (без кавычек). Т.е. дополнительно подключится поиск "links_" и переименование его на пустышку из незаполненного окошка Replace (но уровней остаётся 2). Второй, возможно, более простой вариант - переименование в...

@_MBK_, Как Вам уже писали:

Тогда уж проще: Как раз 2 уровня