Excel VBA：根据word内容移动文件

具体8月5日发过视频进行讲解。

需求描述如下：

在程序文件所在文件夹中，有三个文件夹：未办，已办结，异常。

代码运行前，“未办”文件夹中存放多个word文件，代码处理以后，将“未办”文件夹中所有的word文件移动到“已办结”跟“异常”两个文件夹内。

移动的原则如下：

打开每个word文件，如果在表格前有汉字，并且包含下面截图表格A列内容，则将该word文件移动到“已办结”文件夹，并且在该word文件名前面增加对应的B列字母缩写。如果不包含相关内容，则直接移动到“异常”文件夹中。