Window.Activate (Word)

Active la fenêtre spécifiée.

Sub NextWindow() 
 'Two or more documents must be open for this statement to execute. 
 ActiveDocument.ActiveWindow.Next.Activate 
End Sub