I have inherited a picture archive from the previous editor of a local
newspaper. This archive takes the form of several large Publisher 2003 files
each with hundreds of images. Each image is, I think, grouped with a text
box containing a caption. Some of these captions are quite wordy. The
pictures are probably all jpgs, placed at full size and then resized in
Publisher to fit the space available.

I would like to produce a macro that would extract each picture as a
separate file, something like
(a) open a specified Publisher file in a particular folder
(b) create a new folder with the same name as the Publisher file
(c) find each instance of an image grouped with a text box
(d) ungroup the two objects
(e) select the first, say, 25 characters of the text in the text box having
converted any line breaks to spaces
(f) reset the image to 100%
(g) save the image as .jpg with (e) as its file name in folder (b)
(h) regroup the objects
(i) close the file without saving changes.

I can manage some of this, but I can't find either Reset to 100% or a Save
As Picture method for a shape object like there is in the UI. Am I
attempting the impossible? If so, can anyone suggest a method of extracting
these images?

I'm using Office 2003 on XPSP2.