1遍历所有已打开的word文档
ForEachdocOpe
edI
Docume
ts……
NextdocOpe
ed
2Word将目录下所有文档转换为txt，并删除原文档
Sub目录下doc转txt目录下所有word文档转为txt，并删除word文档保存在原目录
遍历所有文件夹，把带路径的文件名存入字典O
ErrorResumeNextDimPathAsStri
gtPath为路径t用于计算程序执行花费的时间SetobjshellCreateObject