为一批word统一加文件名字

『壹』 word文件怎么批量改名

批量修改word文件名称的方法：

步骤1，下载工具软件后安装打开，如下图所示点击任意一个红框，将需要修改名称的word文件添加到软件中，可以从不同文件夹中添加哦！

『贰』 如何批量在word文档里添加当前文件名。

1.打开WinRAR。随便打开一个压缩文件，然后向上返回即可；或双击打开WinRAR.exe。
2.在WinRAR的资源管理界面上，到达你所要复制的文件名的根目录下(以下以系统盘C：为例)

3.Ctrl+A（全选）

4.右键，将刚才全选的文件选择“添加文件到压缩文件中”，然后会跳出一个新窗口。

5.在跳出的新窗口中，点击选择“文件”的选项卡。
6.你将发现在“要添加的文件”里，有很多的文件名，这些文件名是已经被选中的，而且用空格以及双引号分开的，复制（Ctrl+C）它们。 7.打开记事本或UltraEdit等文本编辑器，粘贴(Ctrl+V)。 8.这时，刚才复制的文件名会全部列出来，然后你就可以慢慢将文件名前后的双号去掉，并进行一些整理。 9.处理完毕。

『叁』 求救：word批量命名：用word内容首行命名！

你好，批量给文件命名需要借助相关工具进行，具体操作如下：

1、点击添加文件把我们的文件一一添加进来。

『肆』 怎么批量把word的“标题”设置成为“文件名”

VBS加工
代码如下所示

选项显式
错误继续下一步“避免程序崩溃的容错语句”。重命名的文件可能已经存在。忽略错误。

Dim fso，fs，f
创建相应的变量
Dim strNewName
Const strCurrentPath = "，"

Msgbox "根据文本文件的第一行批量重命名VBS程序"

『伍』 如何快速给大量word文件重命名

可以用脚本来做。

1、用记事本新建一个文本文件，把它保存为“批量重命名.vbs”（注意不要弄成了“批量重命名.vbs.txt”，也就是要确保其扩展名为“.vbs”）；
2、把下列代码粘贴到这个VBS文件中：
Option Explicit
Const g_strRootPath = "c:\Temp\docs\Word\ToRename\" ' 指定存放所有文件的目录，可以有子目录
Const g_nTitleMaxLen = 16 ' 指定获取文档里面第一段中的前多少个字符来作为文件名
Call Main
' 主函数入口
Sub Main()
Dim fso, oFolder, oWordApp
Set oWordApp = CreateObject("Word.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(g_strRootPath)
RenameDocFilesUnderFolder oWordApp, fso, oFolder
oWordApp.Quit
Set oWordApp = Nothing
MsgBox "完成！"
end Sub
' 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名
Sub RenameDocFilesUnderFolder(oWordApp, fso, oFolder)
Dim oSubFolder, oFile, oDoc
Dim strTitle, strFileName
For Each oSubFolder In oFolder.SubFolders
RenameDocFilesUnderFolder oWordApp, fso, oSubFolder
next
For Each oFile In oFolder.Files
Set oDoc = oWordApp.Documents.Open(oFile.Path)
strTitle = GetFirstVisibleTextContent(oDoc)
oDoc.Close
Set oDoc = Nothing
If Len(strTitle) <> 0 Then
strFileName = fso.BuildPath(fso.GetParentFolderName(oFile.Path), strTitle & "." & fso.GetExtensionName(oFile.Path))
strFileName = GetUniqueFileName(fso, strFileName)
fso.MoveFile oFile.Path, strFileName
end If
next
end Sub
' 获取指定文档第一行可见文字
Function GetFirstVisibleTextContent(oDoc)
Dim oParagraph
Dim strContent
For Each oParagraph In oDoc.Paragraphs
strContent = GetSafeFileName(oParagraph.Range.Text)
If Len(strContent) <> 0 Then
GetFirstVisibleTextContent = strContent
Exit Function
end If
next
GetFirstVisibleTextContent = ""
end Function
' 过滤文件名里面的无效字符
Function GetSafeFileName(strFileName)
Dim arrUnsafeCharacters, strUnsafeChar
Dim nIndex
arrUnsafeCharacters = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
For nIndex = 0 To &H2F
strFileName = Replace(strFileName, Chr(nIndex), "")
next
For Each strUnsafeChar In arrUnsafeCharacters
strFileName = Replace(strFileName, strUnsafeChar, "")
next
GetSafeFileName = left(Trim(strFileName), g_nTitleMaxLen)
end Function
' 获取不重复的文件名，如果有重名则在文件名后面附加“_1”、“_2”……
Function GetUniqueFileName(fso, strFullName)
Dim strParentFolder, strBaseName, strExtensionName
Dim nIndex
If Not fso.FileExists(strFullName) Then
GetUniqueFileName = strFullName
Exit Function
end If
strParentFolder = fso.GetParentFolderName(strFullName)
strBaseName = fso.GetBaseName(strFullName)
strExtensionName = fso.GetExtensionName(strFullName)
nIndex = 0
While fso.FileExists(strFullName)
nIndex = nIndex + 1
strFullName = fso.BuildPath(strParentFolder, strBaseName & "_" & nIndex & "." & strExtensionName)
Wend
GetUniqueFileName = strFullName
End Function

3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。
4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！
5、检查所有文件是否已自动重命名。
注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。

『陆』 office高手 请问如何在所有的excel（或者Word或者ppt文件）文件名字后面统一加上几个字

可用DOS命令实现。
1、先把所有需要改名的任意文件（包括EXCEL、WORD等，什么文件都可以）放到一个文件夹，比如D盘下的AAA文件夹。
2、开始——运行——CMD
然后在弹出的DOS窗口输入：
rename D:\AAA\*.* ?????????????——经理班.*
敲回车即可。
注意DOS窗口下可以按CTRL+空格来切换成中文输入法。
另外注意一个?号代表一个英文字符的位置，所以如果你有的文件名很长的话，那你的?号就应该有很多个，比如你的文件名有十个中文字，那你的问号就应该要有20个。问号多了不会影响短的文件名，而问号少了那些长文件名就会被截掉后面的，所以尽量多问号吧。

补充：
我重新测试了下，命令没有问题的，不过原来的一个*号应该改为多个？号。如果你运行命令报错应该是你没输入正确。
请留意rename与D:之间有个空格，*.*与???????????——经理班.*之间也有个空格。
另外除了“——经理班”外，其他字符请在英文模式下输入。