[已解决]用电子表格VBA批量替换WORD中（含子目录下文件）内容

guogongyi

1.用VBA按照电子表格中“原内容”替换成“替换的新内容”来替换当前目录下（含子目录下）WORD文件内容。谢谢

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-9 12:54

………………

跳转到最佳答案楼层

guogongyi

各位大侠，帮忙了！

dsmch

1. Dim brr(1 To 1000, 1 To 1), s%
   
2. Sub Macro1()
   
3. On Error Resume Next
   
4. [i:i].ClearContents
   
5. s = 0
   
6. zdir ThisWorkbook.Path & ""
   
7. Range("i1").Resize(s) = brr
   
8. Call tihuan
   
9. End Sub
   
10. Sub zdir(p)
    
11. Set fs = CreateObject("scripting.filesystemobject")
    
12. For Each f In fs.GetFolder(p).Files
    
13.     If f Like "*.doc" Then
    
14.         s = s + 1: brr(s, 1) = f
    
15.     End If
    
16. Next
    
17. For Each m In fs.GetFolder(p).SubFolders
    
18.     zdir m
    
19. Next
    
20. End Sub
    
21. Sub tihuan()
    
22. On Error Resume Next
    
23. Dim arr, brr, i&, j&
    
24. Set wd = CreateObject("word.application")
    
25. arr = [a3:b5]
    
26. brr = Range("i1").CurrentRegion
    
27. For i = 1 To UBound(brr)
    
28.     Set wdxp = wd.Documents.Open(brr(i, 1))
    
29.     For j = 1 To UBound(arr)
    
30.         With wdxp.Sections(1).Range.Find
    
31.             .Text = arr(j, 1)
    
32.             .Replacement.Text = arr(j, 2)
    
33.             .Forward = True
    
34.             .Wrap = wdFindContinue
    
35.             .Execute Replace:=wdReplaceAll
    
36.         End With
    
37.     Next
    
38.     wdxp.Close True
    
39. Next
    
40. wd.Quit
    
41. End Sub

复制代码

dsmch

………………

guogongyi

dsmch 发表于 2014-10-9 12:54
………………

太厉害了，非常感谢

zj666

4楼很nice