Copying embedded word object into many different workbooks

[QAChaska]

Hello,

I need to add a header onto around 1200 documents that are to be reviewed. The header is an embedded word object that has to be there so it’s the same size and stuff as the rest of the office documents that are printed. Its near trivial to add by copy and pasting by hand but is time consuming for a lot of documents.
Below is the code I have so far. This code is to:
1. Copy the header off the sheet 1 page
2. Ask for a directory
3. Find all the excel documents in that directory
4. Open the first workbook
5. Find first active sheet
6. Add 8 lines to the top of the file
7. Paste the header
8. Repeat for all active sheets
9. Save and close the workbook
10. Open the next workbook.

Please Login or Register  to view this content.

So I have no idea how else I should try this. Any suggestions?
Thank you,

[natefarm]

Can you attach a sample workbook containing the object you're trying to copy?

[QAChaska]

Hello,

I have attached an example. I have just been hitting F5 to run it in the vba editor.

[natefarm]

Give this I try. I moved your variable defs outside the subroutine to expand the scope, which makes passing ws as a parameter unnecessary, and I tweaked a few other things. I would also be careful about using DisplayAlerts=False and EnableEvents=False unless you have specific reasons for needing them.

Please Login or Register  to view this content.

[QAChaska]

Hello,

Awesome, that works perfectly. Thank you.