请大神word如何批量重命名（用文档中指定位置的文字）

350977106

duquancai 发表于 2017-3-20 00:30
附件，打开“重命名文档.docm”，点击按钮》》》》》》》》》》》》》》》》》》》》》》》

杜老师，你好！
能帮我解决一下这个问题吗？ excel 批量重命名
u盘格式化恢复过来的文件是软件系统命名的（如file001,file002等），我想恢复文件的名字
1，恢复原文件名（如不能，按规则2命名）
2，以工作表1的名字+工作表1 A4单元格值命名
3，重命名时遇到重复文件时加上序号1，保证所有序号文件重命名
4，希望以对话框方式查看文件夹内的excel文件。
以下是我的提问链接，谢谢老师。
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)

350977106

小花鹿 发表于 2017-5-2 20:40
Sub test()
Dim thispath, myfile, mydoc As Document, s
thispath = ActiveDocument.Path & "\"

老师，你好！
能帮我解决一下这个问题吗？ excel 批量重命名
u盘格式化恢复过来的文件是软件系统命名的（如file001,file002等），我想恢复文件的名字
1，恢复原文件名（如不能，按规则2命名）
2，以工作表1的名字+工作表1 A4单元格值命名
3，重命名时遇到重复文件时加上序号1，保证所有序号文件重命名
4，希望以对话框方式查看文件夹内的excel文件。
以下是我的提问链接，谢谢老师。
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)

350977106

weiyingde 发表于 2018-2-13 16:09
刚才发的帖子哪里去了，不得不重发。
Sub AutoOpen()
UserForm1.ComboBox1.List = Array("doc文件", "d ...

老师，你好！
能帮我解决一下这个问题吗？ excel 批量重命名
u盘格式化恢复过来的文件是软件系统命名的（如file001,file002等），我想恢复文件的名字
1，恢复原文件名（如不能，按规则2命名）
2，以工作表1的名字+工作表1 A4单元格值命名
3，重命名时遇到重复文件时加上序号1，保证所有序号文件重命名
4，希望以对话框方式查看文件夹内的excel文件。
以下是我的提问链接，谢谢老师。
求助   excel 批量重命名
http://club.excelhome.net/thread-1588925-1-1.html
(出处: ExcelHome技术论坛)

sad请问

154444444444