Ципихович Эндрю:
А где и на чем работаем?

Patriotix-N:
Дословный ответ:
работаю в РФ, на компьютере
А если серьёзно
есть программа ну например КУСП, она узкого применения известна малому количеству людей, запускается файлом КУСП.exe
Просто она на у меня в локальной сети и есть у меня макрос он открывает эту программу, запускается он по кнопке
Но если она уже запущена, а я макросом её снова запускаю, выдаётся сообщение от самой программы КУСП уже запущено
Вот и нужно, чтобы мой макрос если КУСП не запущено запустил его, а если запущено сделал его видимым
То есть по аналогии с объектами совместимыми с Вордом это выглядит так:
Dim objWord As New Word.Application 'создаем новое окно Word
objWord.Visible = True 'для наглядности новое окно Word, можно сделать видимым
Но в моём случае:Dim objWord As New КУСП.Application 'создаем новое окно
Это не работает, подскажите как будет правильно???

Ципихович Эндрю:
Попробуйте "shell"
Shell "notepad", vbMaximizedFocus
Вместо пути можно вбивать известные системе имена(notepad, regedit ...). Это аналог функции Windows - выполнить.

Гаряка Асмик:
Дословно я сделал так:
If Tasks.Exists(Name:="КУСП") = False Then
Shell "C:\Program Files\КП\kp.exe", vbNormalFocus 'путь, согласно того, что в имени пути файл Экзешный запускается приложение с именем ...
Else: Tasks.Item("КУСП").Activate 'в противном случае сделать ...
End If
Увы задача КУСП активным окном не становится.

Ципихович Эндрю:
Не может быть. Должна.

Гаряка Асмик:
Увы нет, не становится активным окном

Ципихович Эндрю:
Значит, название написано неверно.

Гаряка Асмик:
Как же может это быть: в конструкции
Иф
Эльзе
Энд Иф
Название программы написано одно и то же: "КУСП"
Но первую часть конструкции делает, а вторую нет???

Гаряка Асмик:
Как же может это быть: в конструкции
Иф
Эльзе
Энд Иф
Название программы написано одно и то же: "КУСП"
Но первую часть конструкции делает, а вторую нет???

Ципихович Эндрю:
Tasks.item("КУСП").Activate Работает в том случае, если мы переключились на другую программу. Если КУСП была минимизирована, тогда надо добавить
If Tasks.Item("КУСП").WindowState = wdWindowStateMinimize Then 'условие, если задача КУСП свёрнута тогда развернуть её
Tasks.Item("КУСП").WindowState = wdWindowStateNormal