I need to save the graphics in Word files, using an altered version of each figure's caption for the file name. VBA doesn't have a function like the "Save Picture As" function (on the menu when you right-click a graphic), which is how I thought I would create a macro. I hunted around and found a very good script, which is attached. It puts the figure captions in an array, saves the Word file as HTML in a new folder, deletes non-graphic files from that folder, and assigns the captions as file names for the graphic files.

This script does everything I need, except that it works only on PNG files. JPG files are saved, but with numbered file names. (The critical step for naming the file specifies the ".png" extension.) My VBA knowledge isn't good enough to modify this script. Can anyone suggest how to change it so that it detects the file type, and makes the correct caption for either JPG or PNG?

The script is in the attached file, and I found it at this link:



http://www.mrexcel.com/forum/general...le-folder.html

Attached Files

VBA macro - Extract Word graphics.txt (3.7 KB, 12 views)

Greg should be sleeping at the moment, but looking at his code I suspect the following should work, though I haven't tested it.

You will need a function to get the original extension and add that instead of .png

e.g.

The function would be
Greg is a good friend who I work with a lot so I have used his vba formatting style, to match the other processes.

You can get rid of the SpecialFolderPath function as your modified version of the code doesn't call it. In any case it is not a good idea to save to the Desktop. That is a special type of folder and some write functions from VBA may not work as expected when it is used.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com