Macropod,
This works well, but it did not respond with all of the documents in the folder. I noticed that only the ".docx" files were checked. I changed the following line to:
StrFile = Dir(StrFolder & "\*.doc*", vbNormal). It was: StrFile = Dir(StrFolder & "\*.docx", vbNormal).
That worked to allow documents ending with ".docm" and ".doc", but there are still some that are missing and I cannot determine the reason.