Get Pictures from Word Documents in All Sub Folders

[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"