Selection.GoTo wdPageStart, wdGotoAbsolute, NumberOfPageINeed
Selection.HomeKey Unit:=wdStory
Do
i = Selection.Range.End
Application.Browser.Next
Loop Until i = Selection.Range.End
Сейчас этот форум просматривают: Google-бот и гости: 28