Ruforum.eu Вход · Регистрация · Правила · Поиск · Помощь
Календарь · Участники · Игры
Вы не авторизованы на форуме. Введите логин и пароль или зарегистрируйтесь    

 
Ответить · Новая тема · Новое голосование

Каскадный · [ Стандартный ] · Линейный

VBA в CorelDraw 10

Подписка на тему | Сообщить другу | Версия для печати
gva_vik
Узнаваемый
Group Icon

Сообщений: 140
Статус: вне форума

Сложно даже тему обозвать.
Ситуация следующая - надо сделать свыше 1000 пропусков в CorelDraw для дальнейшей их распечатки.
Сделал шаблоны, фотографии закачиваю без проблем, а с тектом проблемы - проблемы с национальными символами.
Имею базу в Excel'ной таблице, где содержится вся необходимая информация (имя файла с фотографией, имя и должность, а также имя используемого шаблона (ортличаются для различных филиалов) ). В Corel'е написал скрипт, в котором открываю файл Excel и построчно выбираю данные и формирую пропуск для каждого сотрудника.
С текстом так и не разобрался поэтому использую Replace:
CODE :

       Set v_Object = ActiveLayer.Shapes(1)
       v_String = v_Excel.Cells(v_i, c_Name)
       v_Object.Text.Replace "Name", v_String, True


Версия CorelDraw - 10.

Помогите, пожалуйста, очень нужно решить эту проблему в ближайшие дни, не набирать ведь все пропуски руками.

Заранее, огромное спасибо.
21.08.2005 · 16:46
Сергей1974
Начинающий


Сообщений: 18
Статус: вне форума

gva_vik
А попробовать все символы в фамилии в ASCII-кодировке в Екселе изобразить?
23.08.2005 · 14:23
gva_vik
Узнаваемый
Group Icon

Сообщений: 140
Статус: вне форума

Сергей1974
Я пробовал в VBA под Corel'ом выдавать chr(nnn) (и chrw() тоже) - большинство символов выше 128 выдает квадрат (хотя ascii этого символа показывает правильно). К тому же национальные символы в unicod'е - помучаюсь еще со шрифтами, но похоже, что ничего не найду.
24.08.2005 · 05:59
Быстрый ответ



Цитировать выделенный текст [b] Написать жирным[i] Написать с наклоном[u] Написать и подчеркнуть  Функция недоступна..[list] Список из нескольких пунктов с символьными маркерами [quote] Вставить цитату[img] Вставить картинкуФункция недоступна..   [url] Вставить ссылку[email] Вставить e-mail[code] Вставить текст как есть, без изменений и выравниванияРазделительная полоса [hr]  Файл помощи по кодам форума
Тему просматривают:
Ответить · Опции темы · Новая тема

 


Правила форума · FAQ по форуму · Поиск · Архив форума

Наши партнеры: Cooler.irk.ru · WebSound.ru