Keeping up with MoveEnd

[Roy Lasris]

I have a "MoveEnd" button on a Userform that will move the end point of
the selected text downward one paragraph. Sometimes the selected text (i.e.,
the end of the selected text) moves below the visible screen. I want the screen
to automatically scroll to keep up (like it does when scrolling with the mouse
or the keyboard). Are there commands or screen tests that I can apply to make
this happen?

Thanks, as always,

Roy

 

[Helmut Weber]

Hi Roy,
have look at this:
ActiveWindow.ScrollIntoView Selection.Range, True
and at related things like
Dim oWin As Window
Set oWin = ActiveDocument.ActiveWindow
oWin.VerticalPercentScrolled = _
oWin.VerticalPercentScrolled + 10

 

[Roy Lasris]

Helmut,

Perfect solution. Thanks.

Roy