我很懒什么都不会留下
怎么批量重命名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 Function3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。
4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！5、检查所有文件是否已自动重命名。
注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。
如果有什么问题，请和我联系。
如何批量重命名WORD文档？
1，首先从电脑上下载2345好压，下载后安装。
2，安装完成后，双击好压快捷图标，弹出好压主界面。
3，点击中间上面的工具箱，看见没，批量文件改名。
4，从上到下，看箭头，命名规则：定义重命名过程中的命名规则，可使用＂*＂与＂#＂号。
＂*＂号代表原文件名。
＂#＂号代表以数字或字母插入置顶位置。
例：原文件名为haozip.zip 命名规则输入haozip_*则命名结果为：haozip_haozip.zip；命名规则输入haozip_#（#定义开始为1）则命名结果为：haozip_01.zip。
不足位补齐：勾选此项，如出现#号序列位数小于定义位数的情况，则对不足位进行补齐，数字序列补0，字母序列补a。
您可以在预览区域看到重命名结果。
字母编号：勾选此项，#号序列定义为字母序列重命名。
您可以在预览区域看到重命名结果。
注：*号与#号可同时并反复出现在命名规则中，如果批量命名规则中没有出现任何#号序列，那么所有文件将被定义为同一文件名。
您可以在预览区域看到重命名结果。
扩展名改成：此处可以修改文件扩展名，如不填写则不修改。
填写＂＂则删除现有文件扩展名。
文件名称选项：此处提供的选项可以自定义重命名结果中的文件名及扩展名的大小写。
默认保持不变。
您可以在预览区域看到重命名结果。
...1，首先从电脑上下载2345好压，下载后安装。
2，安装完成后，双击好压快捷图标，弹出好压主界面。
3，点击中间上面的工具箱，看见没，批量文件改名。
4，从上到下，看箭头，命名规则：定义重命名过程中的命名规则，可使用＂*＂与＂#＂号。
＂*＂号代表原文件名。
＂#＂号代表以数字或字母插入置顶位置。
例：原文件名为haozip.zip 命名规则输入haozip_*则命名结果为：haozip_haozip.zip；命名规则输入haozip_#（#定义开始为1）则命名结果为：haozip_01.zip。
不足位补齐：勾选此项，如出现#号序列位数小于定义位数的情况，则对不足位进行补齐，数字序列补0，字母序列补a。
您可以在预览区域看到重命名结果。
字母编号：勾选此项，#号序列定义为字母序列重命名。
您可以在预览区域看到重命名结果。
注：*号与#号可同时并反复出现在命名规则中，如果批量命名规则中没有出现任何#号序列，那么所有文件将被定义为同一文件名。
您可以在预览区域看到重命名结果。
扩展名改成：此处可以修改文件扩展名，如不填写则不修改。
填写＂＂则删除现有文件扩展名。
文件名称选项：此处提供的选项可以自定义重命名结果中的文件名及扩展名的大小写。
默认保持不变。
您可以在预览区域看到重命名结果。
自动解决重命名冲突：如果重命名过程中出现命名冲突，2345好压将会按照windows默认规则处理重命名冲突。
替换提供了文件名的批量替换，您可以搜索文件名中的某个字符，并加以替换。
您可以在预览区域看到重命名结果。
添加/删除文件名前添加：不改变原有文件名与命名规则，统一在文件列表中的所有文件名前增加字符。
您可以在预览区域看到重命名结果。
文件名后添加：不改变原有文件名与命名规则，统一在文件列表中的所有文件名后增加字符。
您可以在预览区域看到重命名结果。
扩展添加：勾选后启用扩展添加功能。
可自定义从文件名的某个字符后统一增加的字符。
您可以在预览区域看到重命名结果。
删除文件名中的：此功能可统一删除文件名种的某个字符。
您可以在预览区域看到重命名结果。
扩展删除：勾选后启用扩展删除功能。
可自定义从文件名某个字符后统一删除若干字符。
您可以在预览区域看到重命名结果。
5，写好规则就开始添加文件了。
6，修改效果如下图。
怎么批量给文件改名？
jpg --- 表示 001.jpg, 002.jpg, b.jpg, .,-4}： 在windows文件管理器中。
2. 点击＂，'Search Files". .jpg --- 表示取原名的后三位字符 ${BASE}{4： ================ 足够简单的办法；a'.jpg,3}.jpg --- 表示取原名的前三位字符 ${BASE}{-3.jpg ---表示把原名里的a替换成b ${BASE}{replace,-1},''},${BASE}表示取掉后缀以后的名字，${EXT}表示后缀..， .. ##.jpg --- 表示 01.jpg, 02.jpg， .，'_'. 当然你可以用其他后缀名如gif.，完成重命名；在目录中搜所需要的文件，再棘手的重命名都能迎刃而解；，按住shift或control选择多个文件，如果文件数过多（>1000），建议用":#####://www. @.jpg --- 表示 a，选中全部文件后；}： 用Replace Pioneer。
可以按时间，名字等排序，或只按数字排序，并可按up或down微调顺序. 点击Rename, 2.jpg, .。
3. 把文件按需排好序（点击每列的抬头即可排序），把set output filename 中的${FILENAME}修改为；Batch Runner 菜单。
4. 假设只想按5位数字命名..。
详细操作，点右键选择重命名 命名后的文件类似为： file.jpg file(1).jpg file(2).jpg ..;b'.. ${BASE}###.jpg --- 表示在原名后面加三位序号 ${BASE}{1.com＂ target=＂_blank＂>http. ================ 足够灵活的办法.${EXT} 完成后点击右边的apply。
5...jpg --- 表示原名从第4个字符到倒数第4个字符 ${BASE}{replace,'.. ###。
================ Replace Pioneer 下载地址：...
转载请注明出处51数据库 » word如何批量命名
