Как передать управление из одного объекта в другой?

[wolf05632]

Календарь использую стандартный (tools -> preferens -> microsoft calendar control 2007). Ничего похожего на DateChange не нашел.
TO Ципихович Эндрю
про файл не понял... какой прикрепить?
ЗЫ: в принципе, проблема исчерпана.
Есть другая(наверно, надо другую тему, но напишу здесь): как назначить ошибку на On Error GoTo? В книжке читал, что номера ошибок 0 - 512 зарезервированы для Err.Number, остальные 513 - 65535 пользователь может назначить самостоятельно. КАК ИХ НАЗНАЧИТЬ?

[Ципихович Эндрю]

что за понятие назначить ошибку??
If Error № Then GoTo куда_надо
если номер ошибки не знаем тогда <>0
про файл не понял... какой прикрепить?
тот в котором этот календарь с Вашими наработками

[wolf05632]

Файл прикрепить не могу - он у меня на работе. Вы опять не поняли: строка On Error GoTo ставится перед сомнительными участками кода. В конце участка пишем On Error GoTo 0. Если ошибка происходит в этом участке то можно вызвать функцию Err.Number, которая возвращает код ошибки. Так вот: коды 0 - 512 зарезервированы за программными ошибками, а коды >512 можно как-то назначить программно (например, присвоить 513 - ошибка в вводе данных и т.п.). Но как это сделать - не знаю.

[Ципихович Эндрю]

Сообщение от wolf05632

Файл прикрепить не могу - он у меня на работе. Подожду
Так вот: коды 0 - 512 зарезервированы за программными ошибками, а коды >512 можно как-то назначить программно

Кто сказал?

Ну если делать нечего назначайте програмно, если ошибка = 567, тогда она зовётся "сам придумал", ОК???

[wolf05632]

Кто сказал? - В инете прочитал)))
Подожду - да не надо ждать. Все работает, причем так как мне надо. Спасибо!
Еще вопросик:
как заменить короткое тире на длинное? даже не заменить, а сразу вывести с помощью:selection.typetext(???????)

[Ципихович Эндрю]

Макрорекодер не помогает, так как настроено только короткое тире?

Selection.TypeText Text:=Chr(150) 'добавить тире, длинное тире
Selection.TypeText Text:=Chr(45) 'добавить тире, короткое тире
Selection.TypeText Text:=Chr(13) 'добавить абзац, то есть нажать клавишу Энтер
Selection.TypeText Text:=Chr(11) 'добавить новую строку, то есть нажать клавишу Шифт и, не отпуская её, Энтер
Selection.TypeText Text:=Chr(9) 'добавить столбец, то есть нажать клавишу Таб

[wolf05632]

Спасибо! Не нашел в правилах, как поднять репутацию...