Macro to loop through all word files and convert them into pdf

I need a VBA macro to loop through all the word files in a directory and convert/save them as pdf.
I am using excel & word 2010
I am asking for excel macro since I am not familiar with word macros


Thanks