SplitVertical Property Example
This example splits the active window so that the top pane occupies 70 percent of the window.
ActiveDocument.ActiveWindow.SplitVertical = 70
This example splits the window for Document1 in half vertically.
Windows("Document1").SplitVertical = 50