Selection.GoTo wdPageStart, wdGotoAbsolute, NumberOfPageINeed
Selection.HomeKey Unit:=wdStory
Do
i = Selection.Range.End
Application.Browser.Next
Loop Until i = Selection.Range.End
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 59