expression.VerticalPercentScrolled
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example displays the percentage that the active window is scrolled vertically.
MsgBox ActiveDocument.ActiveWindow.VerticalPercentScrolled & "%"
This example scrolls the active window vertically by 10 percent.
Set aWindow = ActiveDocument.ActiveWindow
aWindow.VerticalPercentScrolled = _
aWindow.VerticalPercentScrolled + 10
This example vertically scrolls the active pane of the window for Document1 to the end.
With Windows("Document1")
.Activate
.ActivePane.VerticalPercentScrolled = 100
End With