如何批量修改word文档名称

  • 格式:docx
  • 大小:31.24 KB
  • 文档页数:1

如何批量修改word文档文件名

操作步骤:

第一步,将需要编辑的word文档放到"D:\temp\"这个路径下;

第二步,在"D:\temp\"这个路径下建立一个新的excel文档,在该excel文档中编辑两列数据,A列为word原始名称,B列为目标名称。如下图所示:

第三步,在该excel文档中使用快捷键“Alt+F11”切换到“编辑器”状态;

第四步,点击“插入”→“模块”;

第五步,将下述代码复制到模块编辑器中,点击“运行”。

源代码:

Sub test()

p = "d:\temp\"

For r = 2 To Range(" a65536").End(xlUp).Row

Name p & Cells(r, 1) & ".doc" As p & Cells(r, 2) & ".doc"

Next End Sub