|
Prosím o radu, jak mohu zjistit, zda je Word (nebo jiná aplkace) spuštěna. Jak vytvořit nový dokument nebo spustit a vypnout Word je hračka, ale zjistit jejich existenci(spuštění) je pro mne zatím neznámo. Zkusil jsem pár možností ale: i kdyz je Word otevren nebo zavren porad to hazi stejne hlasky tj. bud je hodnota "" (v 1. pripde) nebo je hodnota 0 (v2. pripade) Použitý OS W2k,MSWORD9 Jako odkaz na knihovnu je: Reference=*\G{000209FF-0000-0000-C000-000000000046}#8.0#409#..\..\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 8.0 Object Library
On Error Resume Next
If Tasks.Exists(Name:="Microsoft Word") Then
MsgBox Err.Description
End If
nebo
Dim excelObj As Object
On Error Resume Next
wordObj = GetObject(, "Word.Application")
If Err.Number = 0 Then
MsgBox ("Word is running")
Else
MsgBox ("Word is not running")
End If
Err.Clear
wordObj = Nothing
Věděl by někdo? Předem moc děkuji M
|