Objeto Tasks (Word)
Uma coleção de objetos Task que representa todas as tarefas em execução no sistema no momento.
Use a propriedade Tasks para retornar a coleção Tasks. O exemplo a seguir determina se o Microsoft Excel está sendo executado. Se o Microsoft Excel já estiver sendo executado, o exemplo alternará para ele e o maximizará; caso contrário, ele o iniciará.
If Tasks.Exists("Microsoft Excel") = True Then
Tasks("Microsoft Excel").Activate
Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize
Else
Shell "C:\Program Files\" & _
"Microsoft Office\Office10\Excel.exe"
End If
Use a função Shell do Visual Basic para executar um programa executável e adicionar o programa à coleção Tasks.
Use tarefas (Index), onde Index é o nome do aplicativo ou o número de índice, para retornar um único objeto Task. O exemplo a seguir abre a janela de aplicativo da primeira tarefa visível da coleção Tasks e redimensiona-a.
With Tasks(1)
If .Visible = True Then
.Activate
.Width = 400
.Height = 200
End If
End With
O exemplo a seguir restaura a janela do aplicativo Calculator se esse aplicativo estiver na coleção Tasks.
If Tasks.Exists("Calculator") = True Then
Tasks("Calculator").WindowState = wdWindowStateNormal
End If
Referência do modelo de objeto do Word
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.