Window.Document (Word)

Devuelve un objeto Document asociado con la selección, el panel o la ventana especificados.

Set myDoc = Application.ActiveWindow.Document 
If Windows.Count >= 2 Then 
 Application.ActiveWindow.Next.Activate 
 Application.ActiveWindow.Split = True 
 myDoc.Activate 
End If