如何批量替换多个文档里的文字

Dirk

我有一千多个文档中的两个字要改成另外两个字，求大神帮忙

tasly1984

cxtl+F  查找替换

Dirk

tasly1984 发表于 2017-1-17 21:36
cxtl+F  查找替换

我需要的是几个文档一次性替换

joshua

Dirk 发表于 2017-1-17 21:42
我需要的是几个文档一次性替换

在一个文档里录制一段 替换过程的 宏，获得宏代码后，然后在VBA中对你要操作的文件 批量执行此宏 ；

批量执行的代码 自己先百度一下

syhorchid

牛

Dirk

joshua 发表于 2017-1-17 21:50
在一个文档里录制一段 替换过程的 宏，获得宏代码后，然后在VBA中对你要操作的文件 批量执行此宏 ；

...

貌似有点复杂，呵呵。

静水蓝心

遇见高手了

joshua

Dirk 发表于 2017-1-17 22:03
貌似有点复杂，呵呵。

在Word 中新建一个宏，在自动打开的ＶＢＡ编辑器中，把下面的代码复制到里面，按照绿色提示替换你要的内容，就３项目
１、第7行，要替换文件的路径　我的是：C:\Users\Jobin\Desktop\批量执行宏
２、第25行，需要替换的文本　　我的是：AB
3、第26行，需要替换成的文本 我的是： XX

完了保存，在随便哪个word文件中执行一次 刚才保存的宏 即可！

PS：你可以先复制几个文件试验一下成不成功

1. Sub 批量替换文本()
   
2.    Dim path          As String
   
3.    Dim FileName  As String
   
4.    Dim worddoc   As Document
   
5.    Dim MyDir       As String
   
6.    MyDir = "C:\Users\Jobin\Desktop\批量执行宏"  '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内
   
7.    FileName = Dir(MyDir & "\*.doc*", vbNormal)
   
8.    Do Until FileName = ""
   
9.    If FileName <> ThisDocument.Name Then
   
10.          Set worddoc = Documents.Open(MyDir & "" & FileName)
    
11.          worddoc.Activate
    
12.          Call replaceText
    
13.          worddoc.Close True
    
14.          FileName = Dir()
    
15.     End If
    
16.    Loop
    
17. Set worddoc = Nothing
    
18. End Sub
    
19. '======================下面的宏换成你自己的宏=================================
    
20. 
    
21. Sub replaceText()
    
22.     Selection.Find.ClearFormatting
    
23.     Selection.Find.Replacement.ClearFormatting
    
24.     With Selection.Find
    
25.         .Text = "AB" '把AB 换成需你需要被替换的文本
    
26.         .Replacement.Text = "XX"  '把XX 换成需你需要换成的文本
    
27.         .Forward = True
    
28.         .Wrap = wdFindContinue
    
29. 
    
30.         .MatchByte = True
    
31. 
    
32.     End With
    
33.     Selection.Find.Execute Replace:=wdReplaceAll
    
34. End Sub
    

复制代码

小美2005

嫌复杂只能一个个文档去替换，估计你又嫌麻烦了

915_雨

牛X               

雪舞

看来论坛里还是潜伏着许多呢高手呢，小弟佩服

jing2013b

录制宏+按键精灵

afu

joshua 发表于 2017-1-18 07:56
在Word 中新建一个宏，在自动打开的ＶＢＡ编辑器中，把下面的代码复制到里面，按照绿色提示替换你要的内 ...

真心请教：

同时替换页眉/页脚里的文字怎么办呢？

还有：批量设置文件格式能行么？页边距/行距/字体

jing2013b

变更公司名啦

blunk

我觉得 你一个一个换已经换完了

joshua

afu 发表于 2017-1-18 09:15
真心请教：

同时替换页眉/页脚里的文字怎么办呢？

理论上鼠标按钮可以操作的，宏都可以；鼠标不可以操作的，宏有可能也可以实现；你这个只要改一下第二部分的宏代码即可，批量执行部分代码是一样的；

不过只有像LZ那样有上千文件要替换的时候才有意义，只有几个要替换的话就不建议了

afu

joshua 发表于 2017-1-18 09:52
理论上鼠标按钮可以操作的，宏都可以；鼠标不可以操作的，宏有可能也可以实现；你这个只要改一下第二部分 ...

就是整个文件体系更换公司名称，文件数量太多，遇到的问题是进入页眉操作后就乱了，若能帮写段代码将不胜感激

2279110531

牛人啊，佩服佩服

Dirk

joshua 发表于 2017-1-18 07:56
在Word 中新建一个宏，在自动打开的ＶＢＡ编辑器中，把下面的代码复制到里面，按照绿色提示替换你要的内 ...

非常感谢，这么细心的解答，我去试试

流雲

网上有小工具，绿色的，免安装的。比如Word文档批量处理工具BatchDoc4.5，DOC文件页眉页脚修改器等等