Hi Yuri

I managed to work through and extend your code sample to extract both the text and images that I needed :) Thanks very much.



>Hi Jos,
>
>There is no object like "page" in the Word document. To deal with your project, the following may help:
>

>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
>
>

>