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

Имя файла не пропустили? ActiveDocument.SaveAs "C:\Image9.cdr", opt

Чтобы Иллюстратор подумал, а не открыть ли ещё один Иллюстратор, потом прочитал бы в DDE (или где там ещё), что на данной машине при уже открытом Иллюстраторе надо пользоваться уже открытым экземпляром программы, ну и, конечно, это всё должно в разы повысить скорость, вместо простого запуска...

Вы при работающем Иллюстраторе просто скрипт запускаете, а в кине из поста #11 при работающем Иллюстраторе запускается Illustrator.exe которому в качестве параметра передается скрипт. Неспортивно.

ИМХО DIN Bold с округленным контуром или DIN Black подпиленный

Они там тоже были снижены по высоте относительно варианта без диакритики? В частности интересует "Ё". Буква "Ӹ" выбивается из логики, высота не снижена. Вариации "з" в предпоследней строке кажутся подскочившими над линией шрифта.

Точно Аэрофлот Стюардессы были

Летел Аэрофлотом. На борту внутренний wi-fi, в спинке кресла памятка - подключитесь и отсканируйте данный qr-код. А мой телефон qr'ов не умеет :( Так и не посмотрел у них ничего, не поигрался. У других компаний текстом ссылку дублируют...

"В 2010-2015 гг. наша фирма выпускала экраны с разрешением 1600х1200 пикселей"

В верстальных программах можно открыть пару документов и перетащить из окна страниц одного документа в окно страниц другой. CorelDRAW отрабатывал отображение перетаскивания-вставки, но сами страницы не перемещал. Как оно в свежих версиях Корела?

Для работ с отдельными формами на цвета. Шелкуха, флекса и т.п. Для ТЗ изготовителю, подписи заказчиком и т.д. Косвенная польза - отлов лишних, неперекрашенных объектов в тех же работах. Отлов цветов, вроде бы, одного цвета, но из разных палитр, например, Pantone xxx C и Pantone xxx U.

В случае наличия в строке более одного двоеточия Ваш вариант выделит всё до последнего. Если, вдруг, нужно выделять до первого двоеточия, то надо использовать вариант ^.*?: - "жадный" поиск или ^[^:]*: - выделение всех недвоеточий от начала строки до двоеточия У Вас может и не встречаться двух...

с временным объектом можно Sub qqq() ActiveDocument.BeginCommandGroup "ex" Set t = ActiveLayer.CreateRectangle(0, 0, 1, 1) ActiveSelectionRange.OrderFrontOf t t.Delete ActiveDocument.EndCommandGroup End Sub

Свои тесты я начинал с OrderFrontOf и почему-то у меня не работало, поэтому перешел к группам. А сейчас работает. Но я не рассматривал случай объекта в группе-в группе-в группе..., поэтому применение ограничено простой одинарной группой. ActiveSelectionRange.OrderFrontOf...

В своих тестах я ещё кидал на MasterPage.Layers("Desktop") (не знаю как будет работать на локализированных Корелах работать), на MasterPage.Layers(1) (Это слой guides), тоже работало, потом остановился на выложенном.

CorelDRAW 2020 - Undo работает. Жаль. Значит по слоям кидать.

Вариация с прыжками по слоям. На десктопе не сработает, т.к. я поленился создавать специальный дополнительный слой. Sub ex1() ActiveDocument.BeginCommandGroup "ex" Set sel = ActiveSelectionRange sel.MoveToLayer ActivePage.DesktopLayer sel.MoveToLayer ActiveLayer...

Не сильно отличается. В #4 выделяется один объект, а ТС (как мне показалось) хотел выделять любое кол-во объектов внутри группы и вынимать их. #4 и есть та болванка, которую я не заметил изначально.

Невнимательно читал обсуждение, поэтому городил с нуля, вместо того, чтобы воспользоваться болванкой Sub ex() ActiveDocument.BeginCommandGroup "ex" Set sel = ActiveSelectionRange Set grp = sel(1).ParentGroup.UngroupEx grp.RemoveRange sel Set grp = grp.Group sel.OrderFrontOf grp...

Угу-угу. После вашего разъяснения "как надо" больше никто и никогда не будет делать ручных спусков. Все будут делать как надо. :)

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