Application.Tasks (Word)

Devuelve una colección Tasks que representa todas las aplicaciones que se están ejecutando.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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