Window.Document (Word)

Retorna um objeto Document associado ao painel, à janela ou à seleção especificada. Somente leitura.

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