返回目录：office365
如何在将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("操作文件.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图：
以上为VBA操作文件的代码，仅供参考！
欢迎关注套路Excel
图片如何在电脑上批量重命名？
首先，建立一个新文件夹，以时间地点或文章名称命名，之后，把图片都拉到里边。
第二步，批量地修改图片的名称。全选图片，点击任一个并右键，选择「重命名」。
以你所想到的与图片最贴近的关键词来命名，接着点击「回车键」。
所有被选中的图片，都会生成同样的名字并自动加上编号。
掌握了这个方法，再也不用逐个修改图片名称了。