Application.Tasks (Word)

Retorna uma coleção Tasks que representa todos os aplicativos que estão sendo executados.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

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