一个文件夹里有几个Word文件，我想把他们的文件名批量加到各自的文件正文里

1、点击1.doc，右击选择重新命名，ctrl+c需要的文件名。

2、打开1.doc文件，ctrl+v到第一简袜行，另存拦圆激，关闭。

3、依次进行后续的文件，由于你需要每个文件都要打开，所以腔历只能一个个打开，一个个做。

158个文件，你等待百度回答的时间都做完了。

不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另拿宏存为xx.bat，编码消绝册选ANSI，跟要处理的文件放一起双击运行

/*&cls&echo off

rem 将一个word文档/doc文档的名称写入该文档里指定字符串的后面

cd /d "宏羡%~dp0"

set "docfile=xxx.docx"

set "keyword=指定字符串"

if not exist "%docfile%" (echo"%docfile%" 未找到&pause&exit)

cscript -nologo -e:jscript "%~f0" "%docfile%" "%keyword%"

pause

exit

*/

var fso=new ActiveXObject('Scripting.FileSystemObject')

var docfile=fso.GetFile(WSH.Arguments(0))

var kw=WSH.Arguments(1)

var word=null

try{

word=new ActiveXObject('Word.Application')

}catch(e){WSH.StdErr.WriteLine('MS Word is not installed')WSH.Quit()}

word.DisplayAlerts=false

word.Visible=true

var doc=word.Documents.Open(docfile.Path)

var newkw=kw+docfile.Name

word.Selection.Find.Execute(kw,false,false,false,false,false,true,1,true,newkw,2)

doc.Save()

//doc.Close()

//word.Quit()

WSH.Quit()

---