This example displays the caption text for the active window.
MsgBox ActiveDocument.ActiveWindow.Caption
This example opens a new window for the active window of the active document and then tiles all the windows.
Set myWindow = ActiveDocument.ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=wdTiled
This example splits the first document window.
Documents(1).ActiveWindow.Split= True