VBA替换问题

2016-08-02 15:02
http://bbs.csdn.net/topics/391993653
 office那边发过了,这边简要描述一下
Sub 按表替换()
'首先引用ms excel
'运行前关闭所有excel程序
Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
Set ex = New Excel.Application
Set boo = ex.Workbooks.Open("E:\替换表.xls")
    ex.Visible = False    '设置EXCEL对象可见(或不可见)
    Set shee = boo.Worksheets(1)    '设置活动工作表
With shee
For i = 1 To .Range("b65536").End(xlUp).Row
ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将excelA列替换为B列内容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub
 替换的时候可能有误判断,比如把banana当中的an单独提取出来翻译成“一个”,虽然我可以直接把an踢出去手动翻译,但是感觉还是不好,求解这块有什么解决办法么

回复讨论(解决方案)

替换的时候全字匹配再替换啊
替换的时候全字匹配再替换啊

对VBA不熟,不知道有全字匹配参数,真是惭愧