Window.ActivePane (Word)

Retorna um objeto pane que representa o painel ativo da janela especificada. Somente leitura.

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