批量重命名文件可以用VBA来解决。
1、首先，新建3个word文件，集中放在一个文件夹里面，里面只有需要更改名称的word文件。如下图：
2、在该文件夹的相同路径下，新建一个Excel文件，用来操作更改word文件的名称。
3、打开Excel文件，将word文件的名称与新名称做好一一对应。表格如下图所示：
文件名称都不带后缀.docx
4、打开VBE窗口，鼠标右键新建模块，输入VBA代码。如下图：
上面是图片代码，下面是文字代码，题主可复制文字代码到VBE的模块当中。
Sub fso()
Dim objFSO As Object ‘FSO对象
Dim objFolder As Object ‘文件夹
Dim objFile As Object ‘文件
Dim sPath As String ‘路径
‘创建FSO对象
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
sPath = ThisWorkbook.Path & “新建文件夹” ‘路径
Set objFolder = objFSO.GetFolder(sPath)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sht = Workbooks(“操作文件.xlsm”).Sheets(“sheet1”)
‘遍历路径下的所有文件
For Each objFile In objFolder.Files
With sht
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If InStr(objFile.Name, .Cells(i, 1)) > 0 Then
objFile.Name = .Cells(i, 2) & “.docx” ‘重命名
Exit For
End If
Next
End With
Next objFile
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
5、添加按钮，用来运行VBA代码。
6、指定宏名称，点击确定。
7、结果如下：
8、在点击按钮1前，再次确认word文件的名称，如下图：
点击【按钮1】，word文件名称就改为：
8、再次更改新的名称，试验：
点击运行代码：
具体操作可参考下面的gif图：
这种问题excel菜鸟起航最在行，下面给出详细的操作。
1、这是在一文件夹中的一批word文档。
.
2、这是在excel表格中登记的，拟修改的名称（对照表）。下面开始操作，细节部分是成败的关键，我会一一指出。
.
3、在新旧名称对照表中，通过公式，生成DOS命令格式的文本。注意公式的细节：（=”ren “&A2&”.* “&B2&”.*”），“ren”后面有一个空格，第一个“*”后面也有一个空格。公式做好后，向下复制。
.
4、回到文件夹，新建一个文本文件，看看时候显示文件后缀，若不显示，则执行“文件夹选项”，点击“查看”选项卡，找到“隐藏已知文件类型的扩展名”，将前面的勾去掉，确定。
.
5、现在所有的文件均显示文件的扩展名。
.
6、打开新建的文本文件，将上面用公式制作的DOS命令粘贴到新建文本文件中，保存文本文件并退出。
.
7、将新建文本文件的后缀“.txt”改为“.bat”，系统会出现提示，选“是”。
.
8、双击“新建文本文档.bat”，系统便进入修改过程。下面是修改后的效果，完全按照预想给予了修改。
.
本文来自投稿，不代表天一生活立场，如若转载，请注明出处：http://tiyigo.com/it/16742.html
