чтобы скрыть что делает прога решил запускать заставку Кружки.scr, делаю так
it = Shell(PathName:= _
"N:\Изменённые\Кружки.scr", WindowStyle:=vbNormalFocus)


но открывается в режиме настройки заставки
1
как открыть как из проводника
2
как узнать открыта ли заставка
3
как скрыть заставку
можно ли не пользуясь этим файлом сделать аналогичную заставку??, как??
Спасибо

majestic-mike, посылаю макросом на печать часть выделенного текста, макрос трудится, что делает мне понятно, зачем это видеть другим - не зачем, хочу заставить
тем более там такие буквы ЦЭ по кругу движутся, реклама
свернуть в трей, вариант, но на мой вкус не очень и когда заставка пойдёт мышь надо "заморозить"

как открыть выяснил
но вопрос 2
как узнать открыта ли уже заставка
в силе, тем более, что если действовать
по сверке соответствующего процесса в памяти компа
так там процесс называется circle, как его угадать? он же не называется согласно имени файла "Кружки"
????
И подскажите пожалуйста код как заморозить и потом разморозить клаву и мышь пока заставка видна??
Спасибо

Выяснил, что если интересует конкретно запущен какой нибудь скринсейвер, то нужно запустить SystemParametersInfo с параметром SPI_GETSCREENSAVERRUNNING. Если выдаст True, то работает.
Подскажите код сего, я такого ни разу не делал
Заранее спасибо

выяснил, осталось одно, чтобы Экспликит не ругался как объявить

понятно, что это Dim Заставка As Variant сработает, но это же крайний вариант или он самый верный???

Shocker.Pro, кнопка Эф1 сберегла память
Запускает исполняемую программу и возвращает Вариант (Double), представляющий идентификатор задачи программы в случае успеха, в противном случае она возвращает ноль Dim Заставка As Boolean
Но я нигде в справке не вижу Close
Как закрыть???

Shocker.Pro, почитал 11214873 , проверил, не понравилось

majestic-mike, спорить не буду, сделать сделал, не проверял как будет смотреться, в сравнении всё познаётся
не отобразить окошко "ждите" - на весь экран?? и маленькими буквами много много раз указать ждите, ждите, можно как у окулиста разным шрифтом, заодно зрение проверить
Смысл в том, сне нужны инструмены, а я выберу

речь идёт о двух-трёх-четырёх секундах, открою Вам тайну, у меня принтер матричный и у всего РЖД тоже, задумайтесь почему

ну давайте не будем городить огород, тогда кто-то сможет в Ворде с 0 до 20, например поставить гиперссылку при этом не выделяя эту часть, так как выделение для меня плохой тон, подскажите буду благодарен

Ципихович Эндрюну давайте не будем городить огород, тогда кто-то сможет в Ворде с 0 до 20, например поставить гиперссылку при этом не выделяя эту часть, так как выделение для меня плохой тон, подскажите буду благодарен
офигеть, распишу
Ворд что такое знаете?? - думаете да
Если нет дальше читать бессмысленно
Задача такова в любом месте документа Ворд, например на 6 слове, или на тексте начиная с 0 до 20 ти
Видимо здесь непонятки, ноль это начало начал, как Гринвич, а 20 это правее от него на 20 условных единиц
поставить гиперссылку но не выделяя этот промежуток
что такое гиперссылка кто не знает, то же что и ссылка, не не острог, мирная ссылка
подчеркивание и синий цвет для ссылок.. мне по побоку здесь рулю как надо
можете помочь?? Если не понятно ещё поясню подоходчивей

timtim, что не так??? какое слово не понятно, или что??
Чтобы не создавать топик спрошу - маленький вопрос
создал модуль, уже ужал его до не куда
получаю - должен иметь форму запуска или Sub Main()
Чего ему надо??

AndreTM, спасибо за совет ещё и HTML выучить
заикнулся про ссылку сразу же "что-то "вебоподобное", с чего Вы взяли, нет просто переходу по документу
>Что вы так к своему Ворду привязались?
Когда он не глючит я там себя чувствую как рыба в воде и по роду моей професси без него никак, конечно же можно, но неудобств будет больше мне и остальным


итого огород городить приходится, потому что как я понял нет решения
>кто-то сможет в Ворде с 0 до 20, например поставить гиперссылку при этом не выделяя эту часть
Или кто-то сможет

AndreTM,
ну тогда услуга за услугу, я отвечаю, Вы поясняете - ОК??
Ваши вопросы
Если юзер должен видеть, что это переход - то зачем скрывать?
Если скрыто - то какой может быть переход?
Тема с чего начиналась
Юзер выделил часть текста, запустил макрос, вот пусть он так текст и отображается выделенным всегда
Но там в тексте полей штук 100, я повелеваю в коде, который циклом идёт по полям
если увидишь поле .... такое-то, тогда обновить, разорвать связь, поставить на его текст ссылку, как ставить если условие:
"вот пусть он так текст и отображается выделенным всегда"
после цикла
цвет сделать чёрный
печать
опять цикл идём по всем полям
попадем на ссылку - сделать синим и подчёркнутым

Уже не помню, но могу посмотреть в первом цикле почему ссылка без подчёркивания, и только так
То есьть не беспокойтесь в этом месте
>Если юзер должен видеть, что это переход - то зачем скрывать?
>Если скрыто - то какой может быть переход?
Всё ок!
А ещё там есть много полей Макробуттон ими тоже рулим
Что не понятно спросите, поясню с радостью
Так как же поставить ссылку не выделяя текст,