Get Pictures from Word Documents in All Sub Folders

[prkhan56]

Dear Alan,
I have run the code as per your instruction.
It creates the folder as per my previous post.
I am attaching two images herewith.

The first one is Debug and the second one is Breakpoint.
The macro comes out at the breakpoint and does not create any folder "MovedToHere".

Thanks once again for all your time and help.

[DocAElstein]

Hi

.....
The macro comes out at the breakpoint and does not create any folder "MovedToHere"..

I don't quite understand what you mean by this.

Do you mean that the macro errors at this line?

Documents(strDocumentName & ".htm").Close

---

Where do you have the macro? In which document do you have the macro?

[prkhan56]

Hi Alan,
Yes as per the screen shot I sent to you, the macro comes out on the Breakpoint image.
It does not create any folder "MovedToHere" and move the images in this folder.
Hope it is clear now.

The macro is in the Word File inserted as a Module which is open at the time of running the macro

[DocAElstein]

Hi

.., the macro comes out ...

I am still not sure what you meant? What does ..." the macro comes out..." mean? Does the macro stop with an error message. If so , what error message is given?
_.__________________________

---

The macro is in the Word File inserted as a Module which is open at the time of running the macro

Which Word file? - If it is in the file which is saved as .htm , then when the file is closed, the macro is gone so nothing further will happen.
_.______________________

---

You could try to remove the close and kill lines , ( ' comment them out ), and then see what happens.
Like this:

   '  Documents(strDocumentName & ".htm").Close   ' The purpose of the  Save As    .htm  was to get thee new folder made, that's all, so we can close that file now, and then kill (delete) it
  '  Kill strPath & "\" & strDocumentName & ".htm"