You can loop through all the *.doc files in a directory with this macro. This example was used to recover corrupted documents. The code opens the file, selects the whole document and copies it, pastes to a new document, and saves the file with the original name, but in a new directory. However by changing the highlighted section in the middle, you can perform any action on all the nominated documents.
Sub LoopThruFile() Dim strPath As String Dim strNewPath As String Dim strFullPathDoc As String Dim strFileName As String