save al shapes as web image with known name

[Dig-IT]

Hi,

I'm building a macro to prepare content created in Word for another app.
This involves saving all images as a seperate file with a known name and
replacing them with links to the images.

This highly resembles to "Save as web page" behaviour, however i need to
control the formatting of the text myself.

So I'm looking for VBA code that can:
1- cycle through all shapes in a document (images, formula's, drawings)
2- save it as a gif, jpg or png
3- name it 1.gif, 2.gif, 3.gif, etc...
4- delete the shape
5- replace it with some text (i.e. and <img> tag)

I'm kind of stuck. I've managed to build steps 1, 4 and 5 above. I did
find Lebans' solution (http://www.lebans.com/msword.htm) but that
requires the user to specify every files' location.

Any help would be greatly appreciated. (Please note I'm still very much
a VBA novice)

Thanks in advance!

Jos
PS: sorry for the crosspost in m.p.w.vba. After i posted there i saw
this and this is more appropriate (sincs i'm a beginner