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

С удовольствием. Только пока не знаю как. Сработало так - ActiveDocument.ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY, cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment ActiveShape.Fill.UniformColor.CMYKAssign 0, 50, 50, 0

Есть макрос: Sub Macr() ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY, AnyName, _ cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment End Sub Нужно задать определённый цвет выводимого цвета на слой. Пишу так: Sub Macr() ActiveLayer.CreateArtisticText...

Спасибо ОГРОМНОЕ за оперативность и желание помочь начинающему прогписателю )

Оказывается сама программа правильно отрабатывает. Просто когда я переношу файл в "D:\!!! Distr\Temp" название файла начинает показыватся как Untitled-1 вне зависимости от названия файла. Ну собссно вопрос выяснен. Теперь буду разбираться с данным каталогом.

Всё заработало. Оказывается, что имя не бралось, потому что кореловский файл лежал в папке "D:\!!! Distr\Temp". Как только файл оттуда перенёс в другой директорий сразу всё заработало. Что за ерунда непонимаю.

Пишу скрипт в Кореле (X6, 64bit): Sub DocName() MsgBox ActiveDocument.Name End Sub В окошке выводит Untitled-1, хотя у меня открыт документ с другим именем. Пробую так: Sub DocName() MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name) End Sub Всё равно...

@suntory, у меня есть скачанная - FLS502WinManOnline.pdf. Но неудобно на аглицком читать )))

@suntory, а где Generated Names https://yadi.sk/i/2aTlsTeKgJRxJ какие опции ?

Вот мой: Avanti Кстати, даже в посте suntory буква на том же самом месте.

Да, с кириллицей. Но там Ёё не там совсем стоят. И почему он сделан с информацией что есть кодировка 1252 непонятно. Ведь только частично есть. Уже читал. Но после неё у меня "тихо шурша крыша съехала неспеша". И здОрово. Узнал столько интересного и нового. Надеюсь, что меньше буду косячить со...

@_MBK_, хочу чтобы необходимый мне шрифт имел Ёё в нужном месте в правильной написании и не надо было загонять в Корел макрос от безисходности. Сейчас ё стоит в позиции 00B8 и называется с184.

Тогда названия по спецификации Microsoft на сайте http://unicode-table.com/en/0451/ вообще неправильные ? И тот сайт можно выкинуть в "помойку" ? Как и названия. Как понял afii10071 - это стандарт Adobe. И привязываться только к ним.

@svlasov, Всё... Приехали )) Относительно буквы ё по ссылке http://unicode-table.com/en/0451/ написано название Cyrillic Small Letter Io. Далее в Инете есть такие названия afii10071 и cedilla. Так какое же название у буквы ё правильное ?

Да ) Так сохраняются ? или нет. Каким образом Корел считает есть в шрифте кодовая страница или нет ? По какому критерию ?

При переносе этого блока в другой документ - настройки блока сохраняются ? Хм. И не поспоришь ))) Всё верно !!!

Только каждый раз нажимать это при создании новой страницы (листа) замучаешься. Да и не будет конфликта с другими шрифтами на этой же странице ? Сам разобрался )))) Или поменять в FontLab номера им на Юникодовские. Так ?

А конкретнее.... Да, как понял из темы по ссылке, шрифт показывается серым не потому что нет кирилических букв, а потому-что они стоят не в тех позицях. И скопировав буквы в новые позиции и добавив Юникодовые номера буквам шрифт должен отобразиться чёрным ? И ещё - подменил номера символов...

@_MBK_, эту кнопку не нажимал. Но у меня с другими шрифтами нет таких вопросов как с этим.

@_MBK_, В CorelDRAW при любой раскладке если шрифт содержит кириллицу, но показывается чёрным. Если кириллица не поддерживается - серым.

В шрифте Avanti нет буквы ё и Ё. Скопировал и вставил эти буквы с одной позиции в другую и с другим номером Unicode в том же самом шрифте. Сохранил. Теперь в CorelDRAW этот шрифт показывается серым (типа нет 1251 кодировки). Но при выборе его для текста на русском всё пишется и нормально...