可以用脚本来做。
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”……。
② word怎么重命名文件
有好几种方法都可以对文档进行重命名的:
1.用鼠标左键点一下想要重命名的文件,然后稍等一下再点一下就可以直接更改文件名了!
2.用鼠标右键点一下想要重命名的文件,选择“重命名”就可以进行重命名,改好后点一下其它地方就可以了。
3.用鼠标左键点一下想要重命名的文件,然后按F2也可以进行重命名。
先把你要命名的文件保存,然后进入到你保存文件的文件里,右键点击选择重命名,把你想要改的名字打里,比如名字为:我的名字.doc!后面一定要是.doc才可以,不然名字是改不了的!
你是改名的时候,把WORD的后缀名<.doc>去掉了,再文件名的最后加上去就可以了!
如果你觉得显示后缀名比较麻烦,你可以双击"我的电脑"--单击“工具”--选择“文件夹选项”--“查看”--在“隐藏已知文件类型的扩展名”前打勾--点击“确定”就OK了!
以后你就可以直接修改文件名,而不需要考虑文件的后缀名了!
扩展
1.建立新文档
当启动Word 2003 之后,可以使用下列步骤建立一个新文档,具体操作如下:
①单击【文件】→【新建】命令,在任务窗格中选择“本机上的模版”,屏幕上出现“新建”对话框,如图3-5所示;
②单击“常用”选项卡,然后选中“空白文档”图标,并单击【确定】按钮;
③在屏幕空白区域内输入文档内容即可。
2.打开文档
要为以前建立的文档继续录入数据或对其内容进行修改时,可按下列步骤打开文档:
①单击【文件】→【打开】命令或直接单击“常用”工具栏上的【打开】按钮,屏幕上出现“打开”对话框,如图3-6所示;
②在“查找范围”下拉列表中选中要打开文档所在驱动器和文件夹,双击该文件夹,要打开的文件就出现在“查找范围”下方的列表框中;
③双击要打开的文档,然后就在Word 2003窗口中打开了该文档;
④若要同时打开多个文档,则先选中它们(在按住【Ctrl】键时,逐个单击),再单击【打开】按钮。
3.文本的输入
当准备输入汉字时,必须先切换到中文输入法状态下。按【Ctrl】+【Space】键即可在中英文输入法之间转换。
特殊符号的输入操作如下:
例如,要插入符号“∑”:
① 单击【插入】→【符号】→【字体】→【Symbol】将出现如图3-8所示的符号对话框;
② 可以用鼠标单击【∑】符号,然后单击【插入】按钮或者双击【∑】符号的方法来插入符号:
③ 单击【关闭】按钮,“∑”符号即可插入到文档中当前光标位置。
另外,Word还提供了插入特殊字符的方法,如版权符号、注册符号、节符号等。
③ word文件怎么批量改名
批量修改word文件名称的方法:
步骤1,下载工具软件后安装打开,如下图所示点击任意一个红框,将需要修改名称的word文件添加到软件中,可以从不同文件夹中添加哦!
④ 如何批量修改文件名称
批量修改文件名的方法:
步骤1,下载上方的软件后安装打开使用。随后点击【添加文件】,批量将需要格式转换的文件添加到软件中,支持从不同文件夹中添加。
⑤ 如何批量修改word文档的名字
一堆word文档放在那里,一个个修改名字太麻烦,其实有一款软件---2345好压,可以帮大家批量修改。那么下面就由我给大家分享下批量修改word文档名字的技巧,希望能帮助到您。
⑥ 新手求助,word怎么重命名啊想重新改文件名。。。
你好,word命名有以下几种办法:
方法一:按快捷键CTRL+S键可以快速保存文件并命名。
方法二:打开word,点击文件——另存为 ,然后输入文件名就可以了
方法三:已有文件的命名,可以先用鼠标单击选中文件。然后在字巧汪上再次单击,文件名就变成顷春可编辑状态,输入想改的名字雀宽耐就可以了。
方法四:点击鼠标右键,找到重命名点击编辑就可以啦。
方法五:在文件上单击鼠标右键选择“属性",输入新名称保存就可以了。注意:此步骤改名字不可以将文件扩展名删除,删除以后原文件可能会打不开。
⑦ word文档文件名怎么改
首先你找到你要修改的文件,单击这个文件名,并点击鼠标右键,在弹出的菜单中找到并选择“重命名”就可以了。
再有一个方法就是单击了这个文件名后紧接着再单击一下,也是可以顺利的修改这个文件名。