Get Pictures from Word Documents in All Sub Folders

[prkhan56]

---

Can you clarify: Do you mean it used to work for you? Do you mean that you previously have run the macro and had the macro working without error?

---

You could try this quick test. It might help take us further, although I am not sure how, because I don’t relay know what’s going on..
This modified macro should tell you if you have a file to be killed, just before the code line to kill which is giving you the error.
It should tell you that you have at least one file there.
........

This is the new bit

' Test section
Dim FileExistTest As String: Let FileExistTest = Dir(strPath & "\" & strDocumentName & ".htm*", vbNormal)
    If FileExistTest = "" Then MsgBox Prompt:="You don't seem to have any files to be killed": Debug.Print "You don't seem to have any files to be killed"
 
    Do While FileExistTest <> ""
     MsgBox Prompt:="You have this file to be killed:   " & FileExistTest: Debug.Print "You have this file to be killed:   " & FileExistTest
     Let FileExistTest = Dir     '   The use of Dir on its own, without any bracket ( ) stuff tells VBA to look again for the next file of the same type and in the same place that it looked the last time
    Loop
 

Dear Alan
Thanks a lot for taking time and submitting the test code.

It pops up with a message box saying you don't have any files to be killed and when pressed Ok it highlights the same line as mentioned in my previous post.
Yes, this macro used to work in the past absolutely fine. But for some reason it started behaving like this.

I have noticed few things it does when you Click End on the Error dialogue box

It creates two folders as follows: (I am attaching a sample word file on which I tested your code)
Folder1 - 2_files - in this folder you will see that there are images (but they are in duplicates one in png and one in jpg format - this is also strange behaviour!), also you will see some xml and thmx files here.

Folder2 - MovedToHere - there are no files here.

and one file is created which is not associated with any other application.

The sample file is attached herewith for you to test.

Thanks once again for taking out the time to help me.