以Word文档的首行，批量改名（宏）

eh蝴蝶效应

创建一个宏，实现以下功能。

运行宏后，弹出交互窗口，让用户选择文件夹（文件位置），当用户选择后。
该文件夹下所有word（doc或docx）的文件名将被重名为每一个文档的首行。(原始文件还是保留，另外生成新的）
两种难度：
难度1：全部word位于一个文件夹内
难度2：word位于各个子文件夹内

不知道该怎么实现？请大咖帮忙。

剑指E

。            

eh蝴蝶效应

剑指E 发表于 2023-12-19 17:19
。

运行保存，文件可能损坏

剑指E

eh蝴蝶效应 发表于 2023-12-20 07:42
运行保存，文件可能损坏

改了下再试试

eh蝴蝶效应

剑指E 发表于 2023-12-20 08:31
改了下再试试

测试了根目录下的平行文档，不管doc还是docx都可以。而且有一个特点，如果原来两个不同文件名的文档，如果文档内首行文字一样，只会保留唯一值。
受教了。
感谢

eh蝴蝶效应

剑指E 发表于 2023-12-20 08:31
改了下再试试

大神，在修改稿的情况下，又遇到一个报错情况

报错：5487

此次报错的情况，一般是不会发生的。因为我测试硬回车和软回车有何区别。
两个文档的前三行，看上去一模一样，其中一个是正常回车，一个是shift+回车
我想检验一下宏代码能否将后者的三行，识别成一行。

剑指E

eh蝴蝶效应 发表于 2023-12-20 15:21
大神，在修改稿的情况下，又遇到一个报错情况

`              

eh蝴蝶效应

剑指E 发表于 2023-12-20 16:03
`

确实没有报错了，但还是有一个小遗憾，软回车生成的上下两行，还是只能以首行内容另存为文档。还是非常感谢大咖的热心帮助。