批量处理文件夹和子文件夹下的word文件，希望各位老师帮忙！

batmanbbs

改进两处，请重新下载楼下附件
（1）增加了一种解析内容结束的情况
（2）改进对已经打开文档的处理

batmanbbs

【文件+试卷】批量标红试卷解析.rar (1.5 KB, 下载次数: 26)

2023-8-6 15:07 上传

点击文件名下载附件

zhgj007

batmanbbs 发表于 2023-8-6 11:48

圆满解决，谢谢老师。
遍历文件夹和子文件夹，运行再快点就更好了。
特别是，老师能解决解析后面内容不管有几个句号，一律能全部标红，
更令人钦佩，这是好久没人能处理的问题。

gwjkkkkk

zhgj007 发表于 2023-8-6 20:19
圆满解决，谢谢老师。
遍历文件夹和子文件夹，运行再快点就更好了。
特别是，老师能解决解析后面内容不 ...

请参考。。。

batmanbbs

zhgj007 发表于 2023-8-6 20:19
圆满解决，谢谢老师。
遍历文件夹和子文件夹，运行再快点就更好了。
特别是，老师能解决解析后面内容不 ...

你的文件特别多吗？我这里运行速度还可以。我觉得你感到慢不是获取文件名，而且需要打开每一个文件，然后进行查找标红。当文件特别多，就会觉得速度比较慢。为了提高速度，我关闭了文档可见属性，导致没有提示。

PS：如果遇到无法识别的解析结束位置的情况，可以自己根据实际情况，将条件添加到这个数组中，就会自动识别。扩展性比较好。

zhgj007

gwjkkkkk 发表于 2023-8-6 20:22
请参考。。。

老师好，先谢谢您的帮助，明天补鲜花，今天已经送完了。不能选择文件夹吗？

zhgj007

batmanbbs 发表于 2023-8-6 20:27
你的文件特别多吗？我这里运行速度还可以。我觉得你感到慢不是获取文件名，而且需要打开每一个文件，然后 ...

结束位置，自己已经添加了一个。再次表示对老师的感谢！！！！！！
第一次的非常慢，第二次的vba，快不少。可能是我的文件比较多，比一个一个文件夹选，快多了。

还有给个思路，如果遍历方式为，在选择文件夹时，可以一次选择多个文件夹，会不会速度更快。

batmanbbs

zhgj007 发表于 2023-8-6 20:49
结束位置，自己已经添加了一个。再次表示对老师的感谢！！！！！！
第一次的非常慢，第二次的vba，快不 ...

这就和你自己的需求描述有关系了^_^
你的发帖时只是说"批量处理文件夹和子文件夹下的word文件"，包括你第一次提供的样本都不完整，我提了问题，你才提供了第二个样本。
如果按照你原来的样本，编写出来的代码是不能实现你真正需要的效果（估计 gwjkkkkk 老师只看到你第一次提供样本，没有看到你第二次提供的样本）
所以，提需求很重要，要全面准确才行。就文件夹来说，如果需要很多层级，代码完全可以写成 递归 或 堆栈 的方式，这样任意多层子文件夹都可以操作。（gwjkkkkk 老师的代码中读取文件名就是采用 递归 方式）

PS：
（1）我的代码是两级目录的，如果你选中测试文件夹，则其下所有文件包括子文件夹中的文件都是可以直接处理。
（2）VBA好像不支持多选文件夹，只支持多选文件。

gwjkkkkk

zhgj007 发表于 2023-8-6 20:44
老师好，先谢谢您的帮助，明天补鲜花，今天已经送完了。不能选择文件夹吗？

简单修改一下，可自定义选择。。。

zhgj007

gwjkkkkk 发表于 2023-8-6 21:06
简单修改一下，可自定义选择。。。

老师好，首先谢谢您的帮助。但还是麻烦老师费心再改一下啊。
试了一下，能选择文件夹了，但对文件夹中的文件，没有操作。