V-Форум / Corel VBA / Тема: макросы: по просьбам трудящихся
Re: макросы: по просьбам трудящихся
12/12/2006 16:46:33 #Link
Вот как и обещал...
Класть в папку *\Application Data\Corel\Graphics13\User Custom Data\
Тока не открывайте потом окно "Custom Optional Hyphens..." иначе корел повиснет, а так работает нормально
Загрузить:
01.zip Размер: 683.94 KB; Скаченно: 405
Класть в папку *\Application Data\Corel\Graphics13\User Custom Data\
Тока не открывайте потом окно "Custom Optional Hyphens..." иначе корел повиснет, а так работает нормально
Загрузить:
01.zip Размер: 683.94 KB; Скаченно: 405Re: макросы: по просьбам трудящихся
12/12/2006 16:54:32 #LinkRe: макросы: по просьбам трудящихся
07/02/2007 11:11:41 #Link
1) есть несколько шаблонов визиток (D:\shablon1.cdr, D:\shablon2.cdr и т.д)
2) есть два текстовых поля: фамилия и телефон (несколько строк, телефон-адрес)
3) файл пусть сохраняется например в D:\visika.cdr
как в шаблоны вставить информацию из текстовых полей и присвоить им атрибуты текста из этих шаблонов и сохранить файл????
2) есть два текстовых поля: фамилия и телефон (несколько строк, телефон-адрес)
3) файл пусть сохраняется например в D:\visika.cdr
как в шаблоны вставить информацию из текстовых полей и присвоить им атрибуты текста из этих шаблонов и сохранить файл????
Re: макросы: по просьбам трудящихся
13/02/2007 17:38:45 #LinkВопрос, помогите пожалуста
Как мне значение переменной из одной процедуры передать в другую...
вот например сначала идет
Private Sub CommandButton1_Click()
bukva = "exp"
End Sub
Далее (в другом месте но программа этаже) хочу вот так
Private Sub CommandButton1_Click()
ex_n = "E:\" + TextBox3 + bukva + ".eps"
End Sub
переменная bukva - во втором случае не определена (bukva =""
Как мне значение переменной из одной процедуры передать в другую...
вот например сначала идет
Private Sub CommandButton1_Click()
bukva = "exp"
End Sub
Далее (в другом месте но программа этаже) хочу вот так
Private Sub CommandButton1_Click()
ex_n = "E:\" + TextBox3 + bukva + ".eps"
End Sub
переменная bukva - во втором случае не определена (bukva =""
Re: макросы: по просьбам трудящихся
13/02/2007 18:01:55 #Link
Надо в самом начале модуля (кода) формы объявить эту переменную
private bukva$
$ - то же самое что string
private bukva$
$ - то же самое что string
Re: макросы: по просьбам трудящихся
15/02/2007 13:28:52 #LinkСпасибо
А еще вопрос как мне из под корела како-либо файл отправить по почте независимо от того какая у меня почтовая программа (Для Outlook я знаю как, но у меня Thunderbird и не могу...). Можно если знаете конкретно к Thunderbird
А еще вопрос как мне из под корела како-либо файл отправить по почте независимо от того какая у меня почтовая программа (Для Outlook я знаю как, но у меня Thunderbird и не могу...). Можно если знаете конкретно к Thunderbird
Re: макросы: по просьбам трудящихся
15/02/2007 16:47:33 #LinkНадо искать и копаться, я не знаю.
Вот например http://www.forumtopics.co... есть пример как отправлять.
Там используется как я понимаю клиент по-умолчанию, через библиотеку "Microsoft CDO1.21 Library" - включается в VBA Editor в меню Tools->References, а потом смотреть в F2 выбрав MAPI вверху.
А возможно для thunderbird есть описание ключей командной строки где-нить в Нете, чтобы отправлять почту? Ищите!
Вот например http://www.forumtopics.co... есть пример как отправлять.
Там используется как я понимаю клиент по-умолчанию, через библиотеку "Microsoft CDO1.21 Library" - включается в VBA Editor в меню Tools->References, а потом смотреть в F2 выбрав MAPI вверху.
А возможно для thunderbird есть описание ключей командной строки где-нить в Нете, чтобы отправлять почту? Ищите!
Re: макросы: по просьбам трудящихся
15/02/2007 16:53:37 #Link
А что Send to Mile непомогает
Re: макросы: по просьбам трудящихся
15/02/2007 17:06:41 #LinkЦитата:
А как эту команду использовать? Я что-то не найду как к ней обратиться... Может быть и она сгодиться, если подскажете...
Eldar wrote:
А что Send to Mile непомогает
А как эту команду использовать? Я что-то не найду как к ней обратиться... Может быть и она сгодиться, если подскажете...
Re: макросы: по просьбам трудящихся
19/02/2007 11:20:58 #LinkВ VBA 6 команда
Mid(path, n, 2) работает, а в vba 6.3 не работает - выдает ошибку компилятора (подсвечивает слово MID)... почему???
В начале пишу так
dim path as string
dim x as string
dim n as long
path="1234567"
n=4
x= Mid(path, n, 2)
Должно получиться ведь х="45"
Как еще можно из строки нужные символы выдернуть?
Mid(path, n, 2) работает, а в vba 6.3 не работает - выдает ошибку компилятора (подсвечивает слово MID)... почему???
В начале пишу так
dim path as string
dim x as string
dim n as long
path="1234567"
n=4
x= Mid(path, n, 2)
Должно получиться ведь х="45"
Как еще можно из строки нужные символы выдернуть?
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=3606&start=10
