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

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...

Печатаем адреса линкованной графики из ячеек For Each c In t.Cells For Each g In c.AllGraphics Debug.Print g.ItemLink.FilePath Next g Next c

grep, конечно, в точности выполняет желания ТС :), но ТС же так и в печать пустит. Имхо, С.А. менять на А.С. как-то неправильно

Перебираем ячейки всех таблиц на странице Sub ttt() Dim indd As New InDesign.Application Dim t As InDesign.Table Dim c As InDesign.Cell For Each tf In indd.ActiveWindow.ActivePage.TextFrames For Each t In tf.Tables For Each c In t.Cells Debug.Print c.Contents...

И без галки ваш вариант работает, тк InDesign в нем подключается не по референсу, а через CreateObject Дык вот он: Sub qqq() Dim indd As New InDesign.Application 'объявляем новый объект ИнДизайна Dim g As InDesign.Group 'объявляем объект типа группа, чтобы нам IDE после точки его свойства...

VBA - регистронезависимый язык В IDE жмете Tools/References (Инструменты/Ссылки?) ставите галку на Adobe Indesign CC Type Library после чего можете писать чего-то типа Sub FindObjectsInGroups() Dim indd As New InDesign.Application Dim g As InDesign.Group For Each g In...