Document.Windows (Word)

Returns a Windows collection that represents all windows for the specified document.

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

MsgBox Prompt:= ActiveDocument.Windows.Count & " window(s)", _ 
 Title:= ActiveDocument.Name 
ActiveDocument.ActiveWindow.NewWindow 
MsgBox Prompt:= ActiveDocument.Windows.Count & " windows", _ 
 Title:= ActiveDocument.Name