批量替换汉字.doc

《批量替换汉字.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Sub批量替换()''批量替换宏''Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="院校网址".Replacement.Text="高校网址".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAl

2、lWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllWithSelection.Find.Text="院校地址".Replacement.Text="高校地址".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithS

3、election.Find.ExecuteReplace:=wdReplaceAllActiveDocument.SaveEndSubSub批量操作()DimpathAsStringDimFileNameAsStringDimworddocAsDocumentDimMyDirAsStringMyDir="D:XXXXXXXXX"'文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内FileName=Dir(MyDir&"*.doc*",vbNormal)DoUntilFileName=""IfFileName<>ThisDocument.NameThenSetword

4、doc=Documents.Open(MyDir&""&FileName)worddoc.ActivateCall批量替换'调用宏,换成你自己宏的名字worddoc.CloseTrueFileName=Dir()EndIfLoopSetworddoc=NothingEndSub注：此宏程序使用于同一个文件夹下的多个word文档，批量替换汉字（单个或者多个）WithSelection.Find.Text="院校网址".Replacement.Text="高校网址".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=Fa

5、lse.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAll这段就对应着将“院校网址”替换成“高校网址”（可用录制宏，自行观察）上面的宏程序有两段相似的，就代表替换两个汉字。如果只需替换单个，只需删掉一个，并把对应的汉字改成自己需要的；如果需要替换多个，只需多复制几次，同时改成自己需要的；（excel中有字典，不知道word中是否也

6、含有，可惜自己不会，只能用这种笨方法）第一段宏程序，可以把一个文档里面，进行自己需要的替换操作；第二个宏程序，则是批量按次序打开文件夹内的所有文档，挨个进行上个宏程序，即替换操作。MyDir="D:XXXXXXXXX"这条可以修改成对应文档的路径，自行修改；如：D:工作数据处理8月绩效，就可以把文件夹“8月绩效”里面的所有word都进行替换操作。若有多个文件夹都需要替换，只需挨个修改文档路径，再挨个运行即可。使用时，只需打开宏编辑页面，将宏程序复制就去，点击运行即可。宏程序，第一个是自己录制的，第二个是自己从网上找的，这里感谢这些大牛，可以让自己的工作变得这么简单。