Selection.Active (Word)

True si está activa la selección en la ventana o panel especificado.

Sub SplitWindow() 
 ActiveDocument.ActiveWindow.Split = True 
 If ActiveDocument.ActiveWindow.Panes(1).Selection _ 
 .Active = False Then 
 ActiveDocument.ActiveWindow.Panes(1).Activate 
 End If 
End Sub