求指教：怎样实现文档大量词组的批量查找/替换

mbjing

我现在要实现文档的中批量词组的替换，主要是word文档。特定的数千个列在另一个excel清单上的词全部替换
比如把文档中出现的所有“电脑” 这个词全部替换成“计算机” ，谷哥替换成Google，等等

这样的话，录制宏就不知怎么做了，难道要做几千次吗？

mbjing

Desktop.rar (16.24 KB, 下载次数: 86)

2014-1-15 18:10 上传

点击文件名下载附件

我在excel有一个常用错字清单，大概有上千个字
打开一份几万字文档后，一个个查看错字太麻烦，想做一个宏或VBA之类的
一键解决
多谢多谢！！

mbjing

如果从excel里套入数据再检查文档和修改字词太麻烦的话
是不是有办法可以直接把这些错和纠错的字词
直接在word想办法做一个VBA或是宏来解决

413191246se

在 Word 2003 中用 VBA 宏实现很简单，仅仅是耗费时间的问题，但楼主是 2007 版本以上，就不好说了……

wnh728

还是用老办法，编辑－替换－全部替换，安全些！！

wx486

mbjing 发表于 2014-1-15 18:11
我在excel有一个常用错字清单，大概有上千个字
打开一份几万字文档后，一个个查看错字太麻烦 ...

1.     Sub replaceAll()
   
2.         Dim ex As Object, r%, i%, arr, sht, wb
   
3.         On Error GoTo errHandle
   
4.         Set ex = CreateObject("excel.application")
   
5.         Set wb = ex.workbooks.Open(ActiveDocument.Path & "\数据清单.xlsx")
   
6.         Set sht = wb.sheets(1)
   
7.         Selection.HomeKey wdStory
   
8.         With sht
   
9.             r = .Cells(.Rows.Count, 1).End(3).Row
   
10.             arr = .Range(.Cells(1, 1), .Cells(r, 2))
    
11.         End With
    
12.         With ActiveDocument.Content.Find
    
13.             .Wrap = wdFindContinue
    
14.             For i = 2 To r
    
15.                 .Text = Trim(arr(i, 1))
    
16.                 .Replacement.Text = Trim(arr(i, 2))
    
17.                 .Execute Replace:=wdReplaceAll
    
18.             Next
    
19.         End With
    
20. errHandle:
    
21.         wb.Close False
    
22.         Set ex = Nothing
    
23.     End Sub

复制代码

请测试。

hu8537520

没有认真学，感觉好复杂

小食人花

直接在word想办法做一个VBA或是宏来解决

mbjing

wx486 发表于 2014-1-16 14:47
请测试。

谢谢您的回复。
测试了，可以正常使用，非常感谢。

请问怎样才能在每个文档上只要按一下快捷键或按钮就可以完成这个程序（现在要每份文件都重新贴一下）。

我还有另外一个问题，就是数据清单若有2、3千个，替换的文件页数如果有10页左右，速度就会变得很慢。十分钟的样子才能替换完。有没有更快的办法可以大批量的查找替换呢？
不好意思，我的问题可能太多了。

wx486

mbjing 发表于 2014-1-18 18:11
谢谢您的回复。
测试了，可以正常使用，非常感谢。

把你的大文档附件发上来看看