It asks me to select a folder but does not seem to do anything once I select one.
Is it possible that the files you want processed are docx? The code looks for only doc files. If this is the case change:

strFile = Dir(strFolder & "\*.doc", vbNormal)

to

strFile = Dir(strFolder & "\*.docx", vbNormal)