Window.Activate (Word)

Activates the specified window.

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