Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Making Sure an Item Is Displayed in the Window

Sub range()     Dim rngFirstList As Range     Set rngFirstList = ActiveDocument.Lists(1).Range     ActiveDocument.Windows(1).ScrollIntoView Obj:=rngFirstList, Start:=False     rngFirstList.Select     Selection.Collapse Direction:=wdCollapseEnd     Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdMove End Sub