Window.Active (Word)

True se a janela especificada está ativa. Boolean somente leitura.

Sub ActiveWin() 
 If Windows(1).Active = False Then Windows(1).Activate 
End Sub