Window.ActivePane (Word)

Returns a Pane object that represents the active pane for the specified window.

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