怎样用window的脚本或者批处理实现 文档搜索及重命名？谢谢

Question

怎样用window的脚本或者批处理实现 在某一文件夹搜索包含“资料”的word文档，然后把搜索出的文档名称中不包括“文档”都重命名，文件名加上“文档”二字。
比如
如果 "课本.doc"内容中查到了含有“资料”两个字 ，就自动把它命为"课本文档.txt
而“课本文档.doc”内容中查到了含有“资料”两个字 ，保持名称不变化

Answer 1

@echo off
set find_path=%~dp0
set /p find_path=输入完整路径，回车默认当前目录:
pushd .
cd /d %find_path%||(echo 路径非法&pause&goto :eof)
md tmp_txt 2>nul
>doctotxt.vbs echo on error resume next
>>doctotxt.vbs echo Dim word,doc,fso,fc,f
>>doctotxt.vbs echo Dim strBaseName,strExtName,id
>>doctotxt.vbs echo Set fso = CreateObject("Scripting.FileSystemObject")
>>doctotxt.vbs echo Set fc = fso.GetFolder(".").Files
>>doctotxt.vbs echo Set word = CreateObject("Word.Application")
>>doctotxt.vbs echo For Each f In fc
>>doctotxt.vbs echo strBaseName = fso.GetBaseName(f.Path)
>>doctotxt.vbs echo id=instr(strBaseName, "文档")
>>doctotxt.vbs echo strExtName = LCase( fso.GetExtensionName(f.Path) )
>>doctotxt.vbs echo If id=0 and (strExtName="doc" Or strExtName="docx") Then
>>doctotxt.vbs echo Set doc = word.Documents.Open(f.Path)
>>doctotxt.vbs echo doc.SaveAs fso.GetFolder(".") ^& "\tmp_txt\" ^& strBaseName ^& strExtName ^& ".txt",7
>>doctotxt.vbs echo doc.Close
>>doctotxt.vbs echo End If
>>doctotxt.vbs echo Next
>>doctotxt.vbs echo Set fso = Nothing
>>doctotxt.vbs echo Set fc = Nothing
>>doctotxt.vbs echo Set f = Nothing
>>doctotxt.vbs echo Set word = Nothing
>>doctotxt.vbs echo Set doc = Nothing
echo 开始转换并重命名，请等待...
cscript //nologo doctotxt.vbs
for /f "tokens=*" %%a in ('dir .\tmp_txt\*.txt /b /s') do (
for /f "tokens=*" %%i in ('type %%a^|findstr /c:"资料"') do (
setlocal enabledelayedexpansion
set renname=%%~na
set ext=!renname:~-1!
if /I "x"=="!ext!" (
echo 查到!renname:~0,-4!.docx符合条件...
ren !renname:~0,-4!.docx !renname:~0,-4!文档.docx
) else (
echo 查到!renname:~0,-3!.doc符合条件...
ren !renname:~0,-3!.doc !renname:~0,-3!文档.doc
)
endlocal
)
)
echo 处理完毕.
rd /s /q tmp_txt
del /f doctotxt.vbs
popd
pause
exit /b