[CDR X5-X8] Нужна помощь в создании кода для кнопки макроса

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
Доброе время суток, всем крепкого здоровья и всех благ. Нужна помощь в создании кода для кнопки макроса.
Собрал внуку чпу рисовалку, по бороздив просторы интернета нашел 2 макроса для corel.
Первый макрос генерирует УП ,и выкидывает в C:\CDR2Mill\CDR2Mill.txt.
Второй макрос отправляет УП на рисовалку.
Каждый раз приходиться копировать содержимое CDR2Mill.txt и вставлять в окно отправщика удаляя предыдущий УП.
Хотелось бы, как то сократить телодвижения с copy/paste.Много форумов по макросам перелопатил ,но так и не нашел,
есть копирование тхт в экзель, ворд итд , а мне нужно копирование в окошко макроса .Большое спасибо тому кто поможет в написании кода
Для наглядного представления приложил видео
 

Вложения

  • mcr.rar
    12.8 МБ · Просм.: 226

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
Код:
Private Sub CommandButtonImportgcode_Click()
  gc = "c:\cdr2mill\cdr2mill.txt"
  Open gc For Input As #1
  Do While Not EOF(1)
    Line Input #1, s
    ss = ss & s
  Loop
  Close #1
  TextCode = ss
End Sub
 
  • Спасибо
Реакции: splxgf

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
Спасибо за то что отозвались, какую то ошибку выдает
 

Вложения

  • ошибка.rar
    1.8 МБ · Просм.: 166

lev

Модератор
20 лет на форуме
Сообщения
2 142
Реакции
2 066
Извините, я не хочу "смотреть кино", не хочу ползать на другие форумы, я из этой темы устраняюсь. Может кто другой поможет.
 
  • Спасибо
Реакции: elshad66

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Напишите словами или скриншот приложите что не так с тем макросом?
 

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
вставил код который предложил lev . клик на кнопку выдал ошибку , видео ошибки в архиве ошибка.rar
 

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
вот скрин
 

Вложения

  • Безымянный.jpg
    Безымянный.jpg
    192.6 КБ · Просм.: 177

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
cdr2mill на диске С и имя заглавными буквами написаны , также вписал в код ,результат тот же
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
А текст ошибки то какой?
Возможно, у вас стоит установка предупреждений на всех необъявленных символах, а в этом коде переменная gc не объявлена
Попробуйте поставить в начале процедуры DIM gc
 

dastin

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
результат тот же
можно ваш макрос с изменениями - целиком - в виде gms - упакованный в zip или rar - сюда выложить - чтобы был предметный разговор?
А также в какой версии CorelDRAW предполагается его использовать?
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
  • Спасибо
Реакции: DukereD

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
напишите полностью что за ошибка, код приведен нормальный, может переменная gc где-то используется, или
TextCode.Text = ss
или строгий синтаксис включен, дальше уже дорабатывайте по месту.
 

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
этот макрос прекрасно работает ,я еще добавил нужные кнопочки
 

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
никто не будет бегать по левым форумам и устанавливать в корел хз что.
Выложите полный код или разберитесь сами, там делов на пару сек.
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Последнее редактирование:

elshad66

Участник
Топикстартер
Сообщения
53
Реакции
0
поставил Dim gc , не сработало
 

Вложения

  • 1.jpg
    1.jpg
    217.3 КБ · Просм.: 145
  • 2.jpg
    2.jpg
    157.1 КБ · Просм.: 148

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
dim s
dim ss
еще