VerticalPercentScrolled Property 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 scrolls the active pane of the window for Document1 vertically to the end.

With Windows("Document1")
    .Activate
    .ActivePane.VerticalPercentScrolled = 100
End With