Recursively rename files in a subdirectory using the result of a regex r

Question

I have a folder containing subdirectories. Each subdirectory also contains several subdirectory

The deepest subdirectory always contains an image file (wmf or jpeg) as we