Splitting a Window 70 percent of the way down the window:

 
Sub split()
    With ActiveWindow
        .Split = True
        .SplitVertical = 70
    End With
End Sub

1.	Get the Usable Height and Width
2.	Toggle Headings
3.	Toggle Gridlines
4.	To remove the split from the window, set the Split property to False:
5.	scrolls the active window up two screens
6.	To display the Document Map for a window at the Document Map's previous width percentage (of the document's window), set the DocumentMap property to True:
7.	Positioning and Sizing a Window: set its Left and Top properties
8.	To size a window, set its Height and Width properties:
9.	Opening a New Window
10.	Changing the View
11.	Zooms the active window to 150 percent:
12.	Working with Panes

Splitting a Window 70 percent of the way down the window: : ActiveWindow « Application « VBA / Excel / Access / Word