ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить запущен ли Word?
13 сообщений из 13, страница 1 из 1
определить запущен ли Word?
    #33818636
NLP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NLP
Гость
Подскажите, пожалуйста, как определить, запущен ли на компьютере Word?
Заранее спасибо!
...
Рейтинг: 0 / 0
28.06.2006, 11:07
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33818665
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function Com_GetWordObject() As Object
    On Error GoTo errh
    Set Com_GetWordObject = GetObject(, "Word.Application")
        Exit Function
errh:
    On Error GoTo errh2
    Set Com_GetWordObject = CreateObject("Word.Application")
    Exit Function
errh2:
    Set Com_GetWordObject = Nothing
End Function
...
Рейтинг: 0 / 0
28.06.2006, 11:13
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33818691
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Melkiades, перемудрил ))
Код: plaintext
1.
2.
3.
4.
5.
6.
Function GetWord() As Object
Dim wrd as Object
    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    If wrd Is Nothing Then Set wrd = CreateObject("Word.Application")
    Set GetWord = wrd
End Function
...
Рейтинг: 0 / 0
28.06.2006, 11:19
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33818885
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Antonariy, а я On Error Resume Next не люблю... ))
...
Рейтинг: 0 / 0
28.06.2006, 12:06
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33819046
NLP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NLP
Гость
спасибо за помощь! Все работает! :-)
...
Рейтинг: 0 / 0
28.06.2006, 12:58
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33819937
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Melkiades,
Внутри обработчика ошибки присутствует " On Error GoTo "?!
Как же так?!
Что подумает молодое поколение программистов?
...
Рейтинг: 0 / 0
28.06.2006, 17:18
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33820454
GoTo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GoTo
Гость
А, что - GoTo проклятая команда?
Один дурак придумал - не использовать ни где, ни когда и не при каких обстоятелствах, другие же как попугаи подхватили.
...
Рейтинг: 0 / 0
28.06.2006, 22:54
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33820789
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
GoToА, что - GoTo проклятая команда?
Один дурак придумал - не использовать ни где, ни когда и не при каких обстоятелствах, другие же как попугаи подхватили.
Resume Next - проклятая команда.
...
Рейтинг: 0 / 0
29.06.2006, 09:35
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33820943
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Это почему же?
...
Рейтинг: 0 / 0
29.06.2006, 10:19
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33820991
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
GoToА, что - GoTo проклятая команда?

Дело в том, что использовать в обработчике ошибок "On Error GoTo" бессмысленно. Простой тест
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function Com_GetLabudaObject() As Object
    On Error GoTo errh
    Set Com_GetLabudaObject = GetObject(, "Labuda.Application")
    Exit Function
errh:
    On Error GoTo errh2
    Set Com_GetLabudaObject = CreateObject("Labuda.Application")
    Exit Function
errh2:
    MsgBox "Error"
    Set Com_GetLabudaObject = Nothing
End Function
Будет ли сообщение "Error"?
...
Рейтинг: 0 / 0
29.06.2006, 10:34
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33821000
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Вот-вот посетитель GoTo уже не понял!
Ничего не понял.
Не об этом речь.
Внутри обработчика ошибки оператор On Error GoTo не используют, ибо в случае ошибки все равно возникнет аварийный стоп.
После того, как программа вывалилась в обработчик по On Error GoTo следующий такой оператор использовать нельзя, пока ошибка не будет обработана и не будет осуществлен возврат/переход по Resume !
Приведенный Melkiades'ом пример работает, потому что в самом обработчике ошибки не возникло, а попробуйте в теле и в обработчике написать что-то типа q=1/0 (вместо Set Com_GetWordObject...) там и там, и посмотрите.
Вообще, я думал Melkiades сразу заметит свой ляп, я думал, он случайно ошибся...
...
Рейтинг: 0 / 0
29.06.2006, 10:37
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33821008
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Подрихтую:
"Внутри обработчика ошибки оператор On Error GoTo не используют, ибо в случае возникновения ошибки внутри обработчика ..." далее по тексту.
...
Рейтинг: 0 / 0
29.06.2006, 10:40
| Ответить | Цитировать | Написать  
определить запущен ли Word?
    #33821038
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Мдааа, надо ж было так лажануться.
А я так верил человеку, который написал приведенный мной код... и ведь он работал, зараза.
...
Рейтинг: 0 / 0
29.06.2006, 10:49
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить запущен ли Word?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33818885&tid=2165648]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 200ms
total:  417ms
созд. / загр.: 417ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]