Window.ActivePane (Word)

Devuelve un objeto pane que representa el panel activo de la ventana especificada.

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