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

zhusong1998 · 发表于 2016-1-10 21:05

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

终于找到一个基本上可以用的了，十分感谢

但有个问题

即，只能是对照《数据清单》里一个词一个词的替换，会出现替换不全的现象。

比如附件中的，如果用这个程序，则会出现这样的错误，甚至断章取词。

对照库里有
1、土豆需替换成Potato
2、土豆粉替换成Potato powder

3、湿度替换成humidity
4、温湿度计替换成Thermometer

而需要替换的文档中，土豆粉被替换成了“Potato粉”；温湿度计被替换成温humidity计。
能否用excel中单元格替换word文档中表格的单元格，即只有当word中的单元格与excel中的单元完全相同时才替换，否则不于替换。

求解~~~跪谢！

货架布置图.rar (15.03 KB, 下载次数: 24)

对照库.zip (4.98 KB, 下载次数: 29)

weiyingde · 发表于 2016-12-3 09:42

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

很好，受教了。

weiyingde · 发表于 2016-12-3 10:30

又有一段代码，如下，要实现在ppt中自负的替换，代码如下：//
Sub 批量替换字符2()
arr = Array("A", "C", "E", "G", "I", "K", "M") '被替换的字符
brr = Array("B", "D", "F", "H", "J", "L", "N") '替换后的字符
x = LBound(arr)
Z = UBound(arr)
Dim sld As Slide, shp As Shape
For Each sld In ActivePresentation.Slides
      For Each shp In sld.Shapes
         If shp.HasTextFrame Then
            If shp.TextFrame.HasText Then
                  Set trng = shp.TextFrame.TextRange
                  For i = x To Z
                     trng.Find.Execute findtext:=arr(i), replacewith:=b(i), Replace:=wdReplaceAll, Forward:=True  '这一句有问题，如何表达？？？？？
                  Next
               End If
         End If
      Next
   Next
End Sub

问题出在：

trng.Find.Execute findtext:=arr(i), replacewith:=b(i), Replace:=wdReplaceAll, Forward:=True
请问如何表达？？？才能运行正常？？？

weiyingde · 发表于 2016-12-3 10:31

wx486 发表于 2014-1-19 15:46
把你的大文档附件发上来看看

请帮我看看13楼的问题。

duquancai · 发表于 2016-12-3 10:40

weiyingde 发表于 2016-12-3 10:31
请帮我看看13楼的问题。

trng.Find.Execute findtext:=arr(i), replacewith:=b(i), Replace:=wdReplaceAll, Forward:=True '这一句有问题，如何表达？？？？？
你定义了b数组的吗？是brr(i)吧？

weiyingde · 发表于 2016-12-3 13:19

是的，在替换的字符数量不大的前提下，用数组定义被替换和替换的字符。

weiyingde · 发表于 2016-12-3 13:19

duquancai 发表于 2016-12-3 10:40
trng.Find.Execute findtext:=arr(i), replacewith:=b(i), Replace:=wdReplaceAll, Forward:=True '这一 ...

是的，在替换的字符数量不大的前提下，用数组定义被替换和替换的字符。

weiyingde · 发表于 2016-12-3 13:23

duquancai 发表于 2016-12-3 10:40
trng.Find.Execute findtext:=arr(i), replacewith:=b(i), Replace:=wdReplaceAll, Forward:=True '这一 ...

对不起，这个是疏忽，写错了。

weiyingde · 发表于 2016-12-3 13:33

duquancai 发表于 2016-12-3 10:40
trng.Find.Execute findtext:=arr(i), replacewith:=b(i), Replace:=wdReplaceAll, Forward:=True '这一 ...

依然错误，不知为何

weiyingde · 发表于 2016-12-3 15:40

自我搞定，代码如下：
trng.Replace FindWhat:=arr(i), Replacewhat:=brr(i), WholeWords:=True

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

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