Window.Panes (Word)

Returns a Panes collection that represents all the window panes for the specified window.

For information about returning a single member of a collection, see Returning an object from a collection.

If ActiveDocument.ActiveWindow.Panes.Count = 1 Then _ 
 ActiveDocument.ActiveWindow.Panes.Add