Macro works well on single file but not on all files in a single directory

I’m facing quite a unique challenge in running a macro in word 2007. The macro is designed to crop unwanted parts of an image. This macro works perfectly well when I run it on a single file. However, if I invoke the macro to run on all the files within a given directory, it just doesn’t seem to work. It doesn’t even give me any error. It just crops the first few images, and that is all.

I am just a novice, and would appreciate absolutely any help from the learnt members of this forum, in figuring out how to apply this code to run successfully on all the files. All help is welcome, and will be received with thanks and grace.

-Diu

This is what I have specifically: the code for the crop image macro I have is below.

Please Login or Register  to view this content.

@mrice- Thank you for writing back. I am a complete newbie at this. I would greatly appreciate if you could tell me what specific modifications will I have to make to the code and what will the final code look like if I have to achieve the alternative you have suggested.
Thank you for your time!

Cross-post: http://www.vbaexpress.com/forum/show...ngle-directory

Thank you for taking the time to modify the code for me. I used the new code, but guess it is the CropImageMacro which is giving me a runtime error. I have attached the screen shots for your reference. I get the same runtime error when running the original FreeMeNow macro too. Any ideas what is wrong with the CropImageMacro? Is this happening because my files have different number of images, ranging from anywhere between 7-12?
Thanks much in advance

MacroError.pngMacroError2.png

Hi rollis13, apologes if I have cross posted. I thought these were 2 different forums altogether hosted on 2 different websites.