Selection.Active (Word)

True si la sélection dans la fenêtre spécifiée ou le volet est active.

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