If you've ever needed to convert one or many garbled RTF files into a readable Word document you will appreciate this little script. Instead of having to go to each file, open it in Word, and save it into the .DOC format manually you can use this script to enumerate an entire folder of files and convert them into Word documents.
The script uses Word's API and a file system object to open each file, save it into the Word 2003 .DOC format and close it.
For my purposes, I only wanted to convert .RTF files because I was running it against a folder with .PDF and other file types. You can easily alter the file type or remove this check by deleting the If statement on line 36 - "If LCase(Right(objFile,3)) = "rtf" Then". Just make sure you leave what's inside the If block alone.