Window.ActivePane (Word)

Renvoie un objet Pane qui représente le volet actif de la fenêtre spécifiée.

With ActiveDocument.ActiveWindow 
 .Split = True 
 .ActivePane.Next.Activate 
 MsgBox "Pane " & .ActivePane.Index & " is active" 
End With