如何同时替换多个word文档中的文字

如何同时替换多个word文档中的文字

工具：office word
步骤：
1、先将所有文档放在同一个文件夹中。打开office word文档批量处理大师。

2、导入同一个文件夹下的多个word文档。

3、进入“内容批量替换”功能界面。添加多个替换内容。

4、所有替换内容添加完成后，点击处理所有任务，确定后即可批量替换完成。

有专门的文档内容替换器，比如说列编辑器 在360软件管理中可以下载到 名字叫ULTRAEDIT 网上很多的破解版本

提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性： 1、启动Word后，键入Alt+F11打开VBA编辑窗口； 2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码： Option Explicit Const g_strRootPath = "c:\Docs\" ' 指定存放所有文件的目录，可以有子目录 Const g_strTextToFind = "茶" ' 需要批量查找修改格式的文字内容 Dim g_oTargetFont As New Font ' 主函数 Sub Main() Dim fso, oFolder ' 设置需要修改的字体属性 g_oTargetFont.Size = 18 ' 字号 g_oTargetFont.Color = wdColorRed ' 颜色 g_oTargetFont.Bold = True ' 是否加粗（True加粗，False正常） g_oTargetFont.Italic = True ' 是否斜体（True斜体，False正常） g_oTargetFont.Underline = wdUnderlineDash ' 下划线风格 '... 设置其他字体属性 Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder(g_strRootPath) ChangeFontStyleForFilesUnderFolder fso, oFolder MsgBox "完成！" End Sub ' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式 Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder) Dim oSubFolder, oFile For Each oSubFolder In oFolder.SubFolders ChangeFontStyleForFilesUnderFolder fso, oSubFolder Next For Each oFile In oFolder.Files Documents.Open oFile.Path ChangeFontStyleForActiveDocument ActiveDocument.Close True Next End Sub ' 修改当前打开文档里面所有指定文字的格式 Sub ChangeFontStyleForActiveDocument() Selection.StartOf wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = g_strTextToFind .Replacement.Text = "^&" .Replacement.Font = g_oTargetFont .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub 3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）； 4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等； 4、键入F5运行，直到看到“完成！”。 5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。

VBA程序 ： 第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。 第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

1、如图，我们把文档中“baidu”全部替换为“百度” 　　2、点击“编辑”－“替换”（或按快捷键ctrl+h）调出替换对话框。 　　3、在“查找和替换”对话框里，查找内容填写“baidu”,替换为“百度”。点击全部替换。 　　4、全部替换后，关闭对话框。完成

提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性： 1、启动word后，键入alt+f11打开vba编辑窗口； 2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码： option explicit const g_strrootpath = "c:\docs\" ' 指定存放所有文件的目录，可以有子目录 const g_strtexttofind = "茶" ' 需要批量查找修改格式的文字内容 dim g_otargetfont as new font ' 主函数 sub main() dim fso, ofolder ' 设置需要修改的字体属性 g_otargetfont.size = 18 ' 字号 g_otargetfont.color = wdcolorred ' 颜色 g_otargetfont.bold = true ' 是否加粗（true加粗，false正常） g_otargetfont.italic = true ' 是否斜体（true斜体，false正常） g_otargetfont.underline = wdunderlinedash ' 下划线风格 '... 设置其他字体属性 set fso = createobject("scripting.filesystemobject") set ofolder = fso.getfolder(g_strrootpath) changefontstyleforfilesunderfolder fso, ofolder msgbox "完成！" end sub ' 修改指定文件夹（递归）下面的所有word文件中指定文字的格式 sub changefontstyleforfilesunderfolder(fso, ofolder) dim osubfolder, ofile for each osubfolder in ofolder.subfolders changefontstyleforfilesunderfolder fso, osubfolder next for each ofile in ofolder.files documents.open ofile.path changefontstyleforactivedocument activedocument.close true next end sub ' 修改当前打开文档里面所有指定文字的格式 sub changefontstyleforactivedocument() selection.startof wdstory selection.find.clearformatting selection.find.replacement.clearformatting with selection.find .text = g_strtexttofind .replacement.text = "^&" .replacement.font = g_otargetfont .forward = true .wrap = wdfindcontinue .format = true .matchcase = false .matchwholeword = false .matchbyte = false .matchallwordforms = false .matchsoundslike = false .matchwildcards = true end with selection.find.execute replace:=wdreplaceall end sub 3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“c:\docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）； 4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等； 4、键入f5运行，直到看到“完成！”。 5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息