You could also save yourself (and others) a lot of time if you did a forum search. The code in this thread
https://www.msofficeforums.com/drawi...ument-all.html does something very close to what you're after. With a few minor edits, it could do exactly what you say you want.