>oWord = Getobject(,"Word.Application") >lnPageCount=oWord.ActiveDocument.ComputeStatistics(2) >with oWord.Selection > FOR pnPage=1 TO lnPageCount > .GoTo(,,,pnPage) > lnStart=.Range.Start > if lnPageCount >pnPage > .GoToNext(1) > lnEnd=.Range.Start - 1 > else > .Endkey(6) > lnEnd=.Range.Start > endif > oWord.Activedocument.Range(lnStart,lnEnd).copy > > ......... > > ENDFOR >ENDWITH > >>