Embed Images in multiple files

I have a folder of 800+ word documents that all contain images stored only as a reference. I need to copy these files to another computer INCLUDING the images, meaning they need to be permanently embedded in the .doc (I am not concerned about file size). I think I can figure out how to loop through all the documents, but I have not been successful in scripting the embedding of the image in VBA. Would greatly appreciate any help, thank you!

Notes: This is the macro I am currently using, which loops through all the documents fine, but the call to run the AddPhotoBits macro (which was created by the program that generated the reports and is therefore password protected so I can't take a look at it) does not seem to do anything at all.

Please Login or Register  to view this content.

Update: Posting the changes I have made to see if anyone can help. Both scripts seem to execute fine and loop works, but the images are not being embedded. However if I open a document, run just the embed macro and save it, they are embedded fine. I even tried writing a little macro that did nothing but call the PhotoBits sub to make sure I was passing the parameters in correctly and it also worked fine and the images were embedded, so it would appear that somehow the looping action is causing my issues here. Would greatly appreciate any help!

Here is the macro to loop through files and call the Sub to embed images.

Please Login or Register  to view this content.

Here is the macro to embed images:

Please Login or Register  to view this content.