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

В верстальных программах можно открыть пару документов и перетащить из окна страниц одного документа в окно страниц другой. 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...

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

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

База тестовая? Пара "Красных шапочек" друг другу противоречат. Стоит сортировку базы добавить, повысит шанс наткнуться на подобные случаи глазами, если ведущие пробелы в заменах, не помешают.

Для быстрого поиска в тотале тоже существуют плагины. Поставь QuickSearch eXtended (для нормальной скачки надо выделить больше одного файла) и подключи замены из этого поста.

Там есть галка компрессии растра и вектора при сохранении. Некоторых удивляет зачем они нужны, если файл и так является архивом. А работают они при сохранении в RIFF версии (Х3 и до неё). Сохранение CMX части тоже увеличит файл, но поможет с импортом в сторонние программы (как с сохранением pdf...

Application.FrameWork.Automation.Invoke "7da36c72-627c-4782-b51a-01718a43551b" 'Simpify

TrixieCyr, B52

В оригинале мне видится обмотка на 4-й струне, и некоторый моушен в том, что язычки колокольчиков не висят по центру, а болтаются (я бы и сами колокольчики, уже в самом оригинале, от вертикали отклонил бы).

Вот примерчик: Sub first_symbol_shape_to_cyan() Dim sd As SymbolDefinition For Each sd In ActiveDocument.SymbolLibrary.Symbols 'Debug.Print sd.Name тут можем проверить имя символа, чтобы редактировать нужный If sd.Editable Then sd.EnterEditMode...