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

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

Можете добавить в макрос 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...

Вот когда ТС выложит idml вместо indd, смогу посмотреть. А пока на самодельном образце из прямоугольничков гоняю. А отладчик само-собой фурыкает, в меру сил.

Дальше обрабатывайте содержимое группы. Выделять объекты необязательно Sub FindGroupOnCurrentPage() Dim o As Object Set myInDesign = CreateObject("InDesign.Application") Set myDocument = myInDesign.ActiveDocument Set myPage = myInDesign.ActiveWindow.ActivePage For mycounter = 1 To...

Учимся дублировать объекты вместо Copy-Paste

А при сохранении без pdf-совместимости что со временем?

Это лень поправлять. Скрипт чуток сыроват. В функции function save_list (list) - ошибка, должно быть for (var i = 0; i < list.length; i++) {, иначе список не сохраняется. Опция Use list from text file нерабочая, там д.б. сохранение имени файла с переносами, обратное считывание имени в...

Скрипт hyphens_collect отлавливает слова с автопереносами, есть возможность перехода к найденным словам даблкликом по списку. Автор скрипта (Peter Kahrel) предлагает отредактировать полученный список перенесенных слов и применить его вторым скриптом - hyphens_apply Для того, чтобы не улетели...

find: \w1~-? change: $0~-