word 文件批量重命名？？？

来源：百度知道 编辑：UC知道 时间：2024/05/31 22:06:25
我电脑被病毒把盘给格式化了，我找人帮我把文件恢复了，文件全部被重命名了。有好几百个word文件，我想找个软件把他们重命名，名字就是复制word文档里面的标题，请问有这样的软件吗？
如没有，能不能请哪位大侠帮我便一个程序啊，应该不会太难吧！谢谢啦！！！

total commander可以直接看到word标题 这样就和删除之前没有任何区别了～但是别的软件下看还是不行～如果就自己用的话这样也挺方便了～要不就一个一个自己改。。
但是能不能改我就没试过了

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(".")
set files=folder.files
for each file in files
if lcase(right(file,3))="doc" then
a=1
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(cstr(file))
wjm=objDoc.Paragraphs(1).Range
objWord.Quit
if file.name <> replace(wjm,vbcr,"") & ".doc" then createobject("wscript.shell").run "cmd /c ren " & chr(34) & file.name & chr(34) & " " & chr(34) & wjm & ".doc" & chr(34),0
end if
next

if a=1 then
msgbox "操作成功!",4096,"提示"
else
msgbox "对不起，没