Есть несколько способов массового переименования файлов и один из них — через VBA. В заметке — представлен код
Sub example_rename_files() rename_files "D:\Видео\", "*", ".mpeg", ".mp4" End Sub Sub rename_files( _ ByVal path As String _ , ByVal mask As String _ , ByVal old_text As String _ , ByVal new_text As String _ ) Dim old_FName As String If Right(path, 1) <> "\" Then path = path & "\" old_FName = Dir(path & mask) Do new_FName = Replace(old_FName, old_text, new_text) Debug.Print "rename", old_FName, "to", new_FName Name path & old_FName As path & new_FName old_FName = Dir Loop While old_FName <> "" End Sub