DisplayVerticalScrollBar Property
True if a vertical scroll bar is displayed for the specified window. Read/write Boolean.
Example
This example displays the vertical and horizontal scroll bars for each window in the Windows collection.
Dim winLoop As Window
For Each winLoop In Windows
winLoop.DisplayVerticalScrollBar = True
winLoop.DisplayHorizontalScrollBar = True
Next winLoop
This example toggles the vertical scroll bar for the active window.
Dim winTemp As Window
Set winTemp = ActiveDocument.ActiveWindow
winTemp.DisplayVerticalScrollBar = _
Not winTemp.DisplayVerticalScrollBar