如何用宏一次性批量替换多个word文档中的同一内容

lingyuncelia · 发表于 2016-4-23 09:35

在D盘中新建文件夹t，将要处理的word文档放在文件夹t内，再新建一word文档，运行以下代码即可。
我用得是Excel2010，以下这个代码用N次了。
Sub wordReplace()
Application.Visible = False
Dim fpath As String, fname As String, doc As Document
fpath = "d:\t\"
fname = Dir(fpath & "*.doc?")
Do While fname <> " "
Set doc = Documents.Open(fpath & fname)
With doc
With Selection.Find
.ClearFormatting
.Text = "原有内容"
.Replacement.ClearFormatting
.Replacement.Text = "替换内容"
.Execute Replace:=wdReplaceAll
End With
.Save
.Close
End With
fname = Dir
Loop
Application.Visible = True
End Sub

xiaotang_1 · 发表于 2017-3-12 08:56

非常感谢lingyuncelia , 你的代码解决了我的问题

沙漠滴雨 · 发表于 2017-3-16 09:09

sqhsqhli 发表于 2011-2-7 23:19
Sub kqbt_zh()
Application.ScreenUpdating = False
Dim MyPath As String, i As Integer, myDoc As ...

请问：如果一次替换多个词语怎么改？

我的意思是，.Execute findtext:=之后查找多个词语，rep;acewith:=之后替换对应的多个词语，或替换成同一词语。

谢谢您。

cangbei · 发表于 2017-3-16 23:14

坐等答案。。。。

零一个愿望 · 发表于 2017-8-26 14:39

lingyuncelia 发表于 2016-4-23 09:35
在D盘中新建文件夹t，将要处理的word文档放在文件夹t内，再新建一word文档，运行以下代码即可。
我用得是E ...

请问运行代码是提示“运行错误"5121"”怎么办？

mrsander · 发表于 2019-6-24 22:39

非常感谢lingyuncelia
我的工作中需要大量的替换工作
找了很久找到了你提供的这个代码
非常感谢

hehai23 · 发表于 2019-7-19 16:49

本帖最后由 hehai23 于 2019-7-19 16:51 编辑

完全照着做的，目录也一样，就是显示运行时错误 5455，百思不得其解，系统win7 64 ，offic2007

hehai23 · 发表于 2019-7-20 10:30

在论坛上找到一个可以用的，谢谢，因为各位大神论坛才美好

wcg129 · 发表于 2019-9-17 17:54

hehai23 发表于 2019-7-19 16:49
完全照着做的，目录也一样，就是显示运行时错误 5455，百思不得其解，系统win7 64 ，offic2007

遇到和你同样的问题 5455 win7 office2010，在苦等

daibao88 · 发表于 2019-9-17 20:05

本帖最后由 daibao88 于 2019-9-17 20:06 编辑

用的是3楼的代码吧。2007及以上版本不能使用filesearch

		自动登录	找回密码
密码			免费注册

[求助] 如何用宏一次性批量替换多个word文档中的同一内容