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

Словарь сортированный? Если да, то искать в нём методом половинного деления: первая буква слова по сравнению с серединой алфавита выше-ниже? Ищем в той половине словаря куда попала первая буква. Потом буква сравнивается с серединой половины алфавита, потом с четвертью. В худшем случае (слово не...

А я бы посмотрел в сторону "болгарицы" (прямых курсивов)

Зачем оставили проверку If file1 <> "" Then ... ? Считаете FileExists решит, что такой файл существует? MsgBox "File " & file1 & " not found" в цикле - есть вероятность десятка сообщений о несуществовании, лучше собирать данные файлы в текстовую переменную, продолжая импорт, а потом выдать одним...

можно объявить массив сразу на сотню значений и наращивать на сотню проверяя счетчик на достижение границы но я уже советовал обойтись без массива заодно обратите внимание на проверку существования файла Set fs = CreateObject("Scripting.FileSystemObject") While Not EOF(1) Line Input #1...

При выбранном фильтре импорта растровых файлов, например, tiff, серым не становится, но и линка не происходит.

Угу, а в новых серым не становится, но и импортирует без линка. А файловый диалог легко выискивается в нете.

Для запроса "открывает все CDR в папке и пишет PDF" создание списка файлов никак нельзя назвать идеальным решением.

При импорте можно выбрать импорт с линковкой (в новых версиях стрелка вниз на кнопке импорта, в старых просто опцией) по макросу - можно было импортировать сразу по мере чтения строк из файла не заводя массив

Экспортируете всё, что надо в svg с опцией Export bitmap - Embed Images Экспортируете битмап отдельно в png с сохранением прозрачности (если вы не масштабировали в Corel'е импортированный png, то можно пропустить данный этап) Пакуете png в base64. Например, в ТС - File - Encode Files (MIME, UUE...

Ну так встройте его. Закодируйте в base64, например, с помощью Total Commander'a и подмените нужный кусок в svg. Если битмапов много и подменять затруднительно, то стоит попробовать другие софтины для создания svg.

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

Экспортировать встроенный битмап с прозрачностью отдельно и подменить тот, что создался при экспорте в svg.

Примерно так: Sub Macro1() mm = Array("Greece", "Italy", "Spain") Set tsr = ActiveLayer.FindShapes(, cdrTextShape) For Each t In tsr For i = 0 To UBound(mm) If t.Text.Story = mm(i) Then t.AddToSelection Next i Next t End Sub или с примитивным ручным вводом Sub Macro2()...

Советы и рекомендации новичкам на форуме

Я не могу прованговать как он делал скрипты если не догадывается сохранить код в файл и не знает, что с ним потом делать. Могу предположить, что он запускал скрипты, через пункты меню адобовских приложений, поэтому не догадывается нажать на скрипте Энтер или дабл-кликнуть его, но данный уровень...

А как Вы заводите свои другие js скрипты, которые Вам гораздо привычнее? Как их подключаете? Скопируйте написанный код. Сохраните в файл с расширением js внесите правку касающуюся версии и запустите при запущенном CorelDRAW (т.к. в данном простом примере не делались проверки на запуск не в фоне)

А завтра ващ менеджер решит, что 12 стр. будут замечательно смотреться на пружине с ламинацией обложек и мифические белые полосочки мифически повылазят в корешках.

Пример (номер CorelDRAW.Application.xx должен соответствовать Вашей версии) var cd = new ActiveXObject("CorelDRAW.Application.17"); cd.CreateDocument(); cd.ActiveDocument.ActiveLayer.CreateEllipse2 (2, 2, 1, 0, 90, 90, 0); Успехов.

Которого из них? AdobeCMM качался, ставился. LCMS присутствует в виде dll в файлах корела. А раньше Kodak CMS в файлах присутствовал, только уже не помню подключался или как-то косвенно использовался.

lcms - Little cms color engine, Little CMS - Wikipedia, the free encyclopedia