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

Делайте вместо Resample - Convert to bitmap с сохранением прозрачности, можете и цветовую модель сохранить если это не Multichannel. А по преобразованию в CMYK отдельную тему открывайте - одна тема - один вопрос.

Русский-английский. Впрочем это к набору относилось, а у Вас уже всё набрано и сохранено, т.е. поздно пить боржоми. На Вашем месте я бы поменял текстовым редактором с поддержкой регулярок и множества файлов &(\r\n%)?#(\r\n%)?x(\r\n%)?2(\r\n%)?0(\r\n%)?A(\r\n%)?C(\r\n%)?; на ˆ в eps'ах...

Про раскладку это для @АрКан было. Куда Вы копипастите? Копипаста происходит обычно через механизм wmf, а не eps, а с wmf у вышеписавших замены circumflex'a на breve не происходило. Только richblack вместо просто black можете получить. Какая именно у Вас проблема?

посмотрите в хелпе команду SelectShapesFromRectangle

Alt+0136 в зависимости от раскладки рус-англ набирает ˆ или €, который в древних шрифтах может и отсутствовать С какой системной раскладкой запускается программа? --- в готовых MathType'овских eps'ах можно попробовать заменить все "(\306)" на "(\303)"

ss.CreateSelection - выделяет объект ss, сбрасывая выделение с других объектов

Может загрузить Корел удерживая F8 для сброса настроек и не мучиться, вдруг поможет?

Экспортируем каждый объект на текущей странице в отдельный dxf в папку TEMP. Sub dxfer() Dim s As Shape For Each s In ActivePage.Shapes s.CreateSelection ActiveDocument.Export CorelScriptTools.GetTempFolder & s.ZOrder & ".dxf", cdrDXF, cdrSelection Next s End Sub

В иврите некоторые буквы попадая в конец слова меняют форму.

Сделайте из исходного вектора кисть (все шрифты в кривые, обводки в объекты, градиенты желательно разбить на полоски через экспорт-импорт в eps 1 версии, вынуть всё из клипов... и т.д. и т.п. Битмапы отложите в сторонку) Примените кисть к средней линии развёртки, задайте ей ширину равную высоте...

При чём тут код, если достаточно уметь пользоваться поиском? На нашем форуме: CurveInfo 2, [CDR X8] - CurveInfo площадь кривой, [CDR 2017] - Доработать макрос расчета площади/периметра CorelDraw 2017 ... или в поисковике набрать "CorelDRAW площадь", "CorelDRAW периметр", "CorelDRAW длина кривой"

Уже существует десяток подобных макросов, зачем колхозить ещё один?

Большое всем спасибо!!!

Можете добавить в макрос PanoseMatching = cdrPanosePermanent, чтобы автоподставился ближайший шрифт и сохранился.

Имхо ед.ч. - нишадха род.п. мн.ч. - нишадх - Царь нишадх, а не нишадхов т.е. варант на -ов современной морфологии не соответствует, и в роботосклоняторе должен пойти как исключение, а не автоматом дать такой вариант.

Пользуюсь в AI - MakeCropMarksAI.jsx - DTP Scripting

У Вас таблица загруппирована, я делал тесты на втором файле с выкушенной из группы таблицей, на ней всё работает. А для работы с загруппированной таблицей, надо добавлять работу с группами из начала обсуждения, что я поленился. Или у Вас другая ошибка?

Лень перепечатывать весь код из [ID CC2018] - Перебор информации в выбранной группе Способ обратить внимание, что реально поменялось в коде, иначе бы пришлось сравнивать, выискивать.

Например, так: For Each c In t.Cells Debug.Print c.AllGraphics.Count Забыл воткнуть в пример альтернативный вариант с убийством содержимого ячейки: t.Cells(18).Texts(1).Place "c:\1.gif"

А так втыкаем в хвост ячейки №18 три картинки без замены текущего содержимого ... For Each t In tf.Tables t.Cells(18).Texts(1).InsertionPoints(-1).Place "c:\1.gif" t.Cells(18).Texts(1).InsertionPoints(-1).Place "c:\2.gif" t.Cells(18).Texts(1).InsertionPoints(-1).Place...