VB и Word

[iwand]

Народ, кто знает, как написать код, который проверял бы, запущен Word или нет? Пробовал что-то типа If Word.Application=False Then... - не получается... Может, кто знает? Заранее благодарен...

[Kovu]

Используй FindWindow
Что-то вроде

Код: Выделить всё

If FindWindow("Класс окна Ворда",vbNullString) then
'Класс окна так не помню :(  Вруби сам SPY++ и посмотри


[iwand]

Непонятный какой-то код...

[Kovu]

Код: Выделить всё

Public declare Function FindWindow Lib "user32" alias "FindWindowA" (classname as String,wndname as String) as long

Возвращает дескриптор окна. Если окно есть, т. е. программа Word запущена , то возвращает не ноль. Это и подразумевает условная конструкция Ещё чё-нить непонятно По-моему проще некуда

[Александр80]

Код: Выделить всё

   

Public AppWord As Application

'***************************************************

Set AppWord = GetObject(, "Word.Application")
    If AppWord Is Nothing Then
        Set AppWord = CreateObject("Word.Application")
        If AppWord Is Nothing Then
            MsgBox "Запустить WORD невозможно......", vbCritical, "Внимание!"
            End

        End If
    End If

Попробуй так...

[iwand]

Спасибо огромное, попробую