批量提取Word固定内容并重命名

fanny2016

需要遍历指定文件夹下的所有Word文档，提取从关键词后至段落结束的内容，并将文档重命名为“提取内容（原文档名）”，但是代码运行错误，提示：由于文件许可权错误，Word无法完成保存操作，请问是什么原因了。已经检查了，文件夹和文档都是可以写入和修改的。

我的思路是：
1、打开 C:\提取重命名\ 路径下的.doc和.docx文件。
2、在文档中查找关键词“案 由:”。
3、如果找到关键词，则提取包含该关键词的段落内容，并移除关键词。
4、新文件名格式设置为：提取内容（原文档名）
5、用fso获取原文件扩展名，加在后面，另存。

一开始是新文件名格式这里设置错了，变成了提取内容（原文档名.doc） 这样，扩展名没有了无法保存。但是后面已经修改了，还是不行，还是提示保存不了，麻烦帮忙看看是什么原因造成的。

gwjkkkkk

上传附件，模拟结果。。。