home *** CD-ROM | disk | FTP | other *** search
- Option Public
-
- Sub SetViews
- ' Clear any current document splits.
- CurrentWindow.WinViewPrefs.ClearSplits
-
- ' Make the current window display seven pages left to
- ' right by creating 7 columns in the window, turning off
- ' draft mode, and setting the view type to multiple pages.
- CurrentWindow.WinViewPrefs.NumCols = 7
- CurrentWindow.WinViewPrefs.IsInDraft = False
- CurrentWindow.WinViewPrefs.ViewType = &H40
-
- 'Create a new window that will take 66% of the doc window
- .ApplicationWindow.UserInterfacePrefs.VerticalSplitWindow = True
- .ApplicationWindow.UserInterfacePrefs.SplitPercentage = 66
-
- ' Display the new window
- .NewWindow
-
- ' Makes the new window display with the page width view by
- ' turning off vertical spliting, turning off draft mode,
- ' and by setting the view type to page width
- .ApplicationWindow.UserInterfacePrefs.VerticalSplitWindow = False
- CurrentWindow.WinViewPrefs.IsInDraft = False
- CurrentWindow.WinViewPrefs.ViewType = &H100
- End Sub
-