Application.Tasks (Word)

Returns a Tasks collection that represents all the applications that are running.

For information about returning a single member of a collection, see Returning an object from a collection.

If Tasks.Exists("Calculator") Then 
 With Tasks("Calculator") 
 .Activate 
 .WindowState = wdWindowStateNormal 
 End With 
Else 
 Shell "calc.exe" 
 Tasks("Calculator").WindowState = wdWindowStateNormal 
End If