如何在将excel中的名字批量重命名到word中？

批量重命名文件可以用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("操作文件.xl**").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图：
以上为VBA操作文件的代码，仅供参考！欢迎关注套路Excel