word怎么多个文件重命名

1.如何对多个一连串的文件进行重命名?

对多个一连串的文件进行重： 1、打开My Pictures（我的图片）文件[依次点击Start（开始）、My Pictures（我的图片）]。

或者打开其它包含需要重命名文件的文件夹。 2、选择您需要重命名的文件。

如果这些文件在文件列表中是非连续的，请按住CTRL键并依次点击每一个希望选中的文件。 3、在File（文件）菜单上，单击Rename（重命名）。

4、输入新的名称，并按下ENTER 键。您所选定的所有文件将使用新的名称按照编号顺序进行重命名。

举例来说，如果您输入Birthday，那么，第一个文件将被命名为Birthday，后续文件将被依次命名为Birthday(1)、Birthday(2)等等。 如需设定起始编号，请将其输入到新文件名后的括号中。

整个序列中的文件将从您所输入的数值开始进行编号。例如，如果您输入Birthday(10)，那么，其它文件将被依次命名为Birthday(11)、Birthday(12)等等。

2.怎么批量重命名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) oWordApp, fso, oFolder oWordApp.Quit Set oWordApp = Nothing MsgBox "完成！" end Sub' 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名 Sub (oWordApp, fso, oFolder) Dim oSubFolder, oFile, oDoc Dim strTitle, strFileName For Each oSubFolder In oFolder.SubFolders oWordApp, fso, oSubFolder next For Each oFile In oFolder.Files Set oDoc = oWordApp.Documents.Open(oFile.Path) strTitle = (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 (oDoc) Dim oParagraph Dim strContent For Each oParagraph In oDoc.Paragraphs strContent = GetSafeFileName(oParagraph.Range.Text) If Len(strContent) <> 0 Then = strContent Exit Function end If next = "" 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 Function3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！5、检查所有文件是否已自动重命名。

注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。如果有什么问题，请和我联系。

3.自动为批量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) oWordApp, fso, oFolder oWordApp.Quit Set oWordApp = Nothing MsgBox "完成！" End Sub' 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名 Sub (oWordApp, fso, oFolder) Dim oSubFolder, oFile, oDoc Dim strTitle, strFileName For Each oSubFolder In oFolder.SubFolders oWordApp, fso, oSubFolder Next For Each oFile In oFolder.Files Set oDoc = oWordApp.Documents.Open(oFile.Path) strTitle = (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 (oDoc) Dim oParagraph Dim strContent For Each oParagraph In oDoc.Paragraphs strContent = GetSafeFileName(oParagraph.Range.Text) If Len(strContent) 0 Then = strContent Exit Function End If Next = "" 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 Function3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！5、检查所有文件是否已自动重命名。

注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。如果有什么问题，请和我联系。

4.如何重命名多个文件夹下的子文件

您好，1首先找到需要处理重命名的文件或者文件夹，把他们复制放到同一个文件夹里。

（这里只以图片文件为例教大家，其他文件或者文件夹重命名都是一样）2然后按ctrl+a全选所有文件或者文件夹，也可以按住shitt键，然后鼠标放到最后一个文件上点击左键即可全选。3全选中所有文件或者文件夹后，把鼠标光标移到第一个文件或者文件的位置上，然后右键鼠标，选重命名。

4接着输入自己预先确定好的文件名，（输入的可以是字母，数字，文字都行。）这里小编输入“夜景”，然后把鼠标移到空白处单击左键，即可重命名成功，效果如下图。

5如果要重命名已经重命名过的文件或者文件夹，并且要改变文件或文件夹的顺序要怎么做呢？同样先全选中所有文件及文件夹，然后鼠标放到要命名其中一个文件或文件夹为第一个文件或文件夹的位置上（原来第一个文件或文件夹除外），单击鼠标右键，重命名。这里小编输入“城市夜景”。

6命名成功后，刚选择在哪个文件或文件夹上先重命名哪个文件或文件夹就自动变成第一个文件或者文件夹了。该文件后边的自动按顺序变化，效果和原来的对比如下图。