一、多个word文档中有同一词汇要替换
需要安装有Microsoft Office,复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起运行
' 2>nul 3>nul&cls&@echo off
'&rem 替换多个word文档/doc文档里的指定内容
'&set #=Any question&set @=WX/&set $=Q&set/az=0x53b7e0b4
'&title %#% +%@%%$%%$% %z%
'&cd /d "%~dp0"
'&dir /a-d/b|findstr ".doc$ .docx$"|cscript -nologo -e:vbscript "%~fs0" "需替换的内容" "替换后的内容"
'&echo;%#% +%@%%$%%$% %z%
'&pause&exit
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set wd = CreateObject("Word.application")
'wd.Visible = True
Do While WSH.StdIn.AtEndOfStream<>true
line=WSH.StdIn.ReadLine
Set docfile=fso.GetFile(line)
If Left(docfile.shortname, 2) <> "~$" Then
WSH.echo line
Set doc = wd.Documents.Open(docfile.Path,,,,"pwd")
If doc Is Nothing Then
doc.Close
End If
If doc.ProtectionType = -1 Then
doc.Content.Find.Execute WSH.Arguments(0), , , , , , , , , WSH.Arguments(1), 2
End if
doc.Close True
End If
Loop
wd.Quit
WSH.Quit
二、如何同时批量修改多个word文档内容
把要批量修改的文档都放在同一个文件夹中
2
在修改前,先确定多个word文档文件要被修改的内容
如小小要修改的内容是多个word文档中的“西平县”,
3
双击“word文档批量处理大师”
4
点击“选择目录”
5
在弹出的窗口中选择点击要批量修改的多个word文档文件所在的文件夹,然后点击“确定”按钮
6
此时,系统会自动添加该文件中的所有文档文件
点击“保存列表”
在弹出窗口输入框随便输入一个名字,然后点击“保存”按钮
在word文档批量处理选项中点击选择“1、内容批量替换”
在右边弹出'批量替换文档内容'框体中,在”把文字:“标签下输入要被修改的内容,如“西平县”,在“替换为:”标签下输入要改成的内容,如“我在这”。然后点击“添加为待处理任务”按钮
如果,要被批量修改的内容还有其他的,则先点击“添加到列表”按钮,然后再在”把文字:“标签下输入下一个要被修改的内容,如“啊”,在“替换为:”标签下输入下一个要改成的内容,如“哈“,然后点击“添加到列表”按钮。如此反复把所有要修改的文档内容全部添加到列表后再点击“添加为待处理任务”按钮
在弹出窗口点击”确定“按钮
在弹出窗口点击”是“按钮
在弹出窗口点击”确定“按钮
系统处理完后,会显示“任务完成!”
打开文件查看结果多个word文档文件全部批量完成