Window.Panes (Word)

Devuelve una colección panes que representa todos los paneles de ventana de la ventana especificada.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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