VBA如何替换同一个文件夹里面的多个word的同一文字

linguipeng85

比如我一个文件夹里面有几十个word文档，我想将里面的某几个字替换成其他的字，例如“技巧”改成“技巧”，用EXCEL写VBA，求各位大神帮忙

65861954

标记一下。看看答案。

小花鹿

录制一个查找替换的宏，然后外套一个循环                                                                     

perfect131

试试看

1. '需要引用 Microsoft word *** Object Library
   
2. Sub kong()
   
3.     Dim wdApp As Object, wdDoc As Object
   
4.     Dim xp, myfile
   
5.     xp = ThisWorkbook.Path & "\123"
   
6.     Dim bFound As Boolean
   
7.     bFound = True
   
8.     Dim arr
   
9.     arr = ActiveSheet.Range("a1").CurrentRegion
   
10.     ReDim brr(1 To UBound(arr), 1 To 1)
    
11.     myfile = Dir(xp & "*.doc*")
    
12.     Do While myfile <> ""
    
13.         Set wdApp = CreateObject("word.Application")
    
14.         wdApp.Visible = True     '设置Word为可视
    
15.         '你的word文件名称
    
16.         Set wdDoc = wdApp.Documents.Open(xp & myfile)
    
17.         Dim i
    
18.         i = 2
    
19.         Do While i < UBound(arr) + 1
    
20.             With wdDoc.Content.Find
    
21.                 .Text = arr(i, 1)
    
22.                 .Replacement.Text = arr(i, 2)
    
23.                 bFound = .Execute(Replace:=2)
    
24.             End With
    
25.             If bFound Then
    
26.                 brr(i, 1) = "找到"
    
27.             Else
    
28.                 brr(i, 1) = "没找到"
    
29.             End If
    
30.             i = i + 1
    
31.         Loop
    
32.         ActiveSheet.Range("c1:c" & UBound(arr)).ClearContents
    
33.         ActiveSheet.[c1].Resize(UBound(arr), 1) = brr
    
34.         '保存修改
    
35.         wdDoc.Close True
    
36.         wdApp.Quit '退出WORD
    
37.         Set wdApp = Nothing: Set wdDoc = Nothing
    
38.         myfile = Dir()
    
39.     Loop
    
40. End Sub

复制代码

linguipeng85

感谢老师，我先试一试

h2016

标记标记终于找到想要的替换方式，