Window.Document (Word)

Renvoie un objet document associé au volet, à la fenêtre ou à la sélection spécifiés.

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