WORD 宏 通过EXCEL 批量替换 如何全字匹配？

lancelot99

我之前在论坛的大佬里抄用了这样的一个宏，用来将WORD文档中的附图标记替换为文字，现在出现了一个问题。
例如WORD文档中有3a和3a1，想要替换成3a→AA和3a1→BB，结果会替换成AA和AA1。

问一下下面这个宏怎么修改，才能把替换改为“全字匹配”替换。


Sub BatchReplace()
'
' BatchReplace 宏
'
'
'（1）需要在 工具 -》引用 中勾选 office excel 选项；
'（2）excel文件不是xls，而是xlsx；
'（3）录制宏时，选择按钮



'声明Excel相关
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim sheet As Excel.Worksheet
'获取指定excel程序
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("D:\附图标记替换表.xlsx")
    Set sheet = xlBook.Worksheets(1)

Dim i
Dim nLR
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row           '最后一行
For i = 1 To nLR
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = sheet.Cells(i, 1)
        .Replacement.Text = sheet.Cells(i, 2)
         'MsgBox (.Text)
         'MsgBox (.Replacement.Text)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next

'退出指定excel程序
xlBook.Close 0
xlApp.Quit
Set xlApp = Nothing

End Sub

201228

先替换3a1为BB，再替换3a

lancelot99

201228 发表于 2018-6-30 11:40
先替换3a1为BB，再替换3a

这个不行的，因为我是写专利的，我用代号写完之后，比如说：
所述3a包括有3a1且所述3a1安装在3a的下方。
替换成：
所述部件（3a）包括有零件（3a1）且所述零件（3a1）安装在部件（3a）的下方。
按你这个顺序会导致我的零件（3a1）中的3a被替换为部件（3a）

201228

lancelot99 发表于 2018-7-16 16:21
这个不行的，因为我是写专利的，我用代号写完之后，比如说：
所述3a包括有3a1且所述3a1安装在3a的下方。 ...

不能啊， 3a1替换为bb 以后， 你的word 只能剩下3a了， 没有3a1了。
怎么可能把零件（3a1）中的3a被替换为部件（3a）

例如：3a1456，3a456 这样的， 3a1都变成bb了，替换后：bb456，3a456  然后再替换3a。这里面已经和3a1无关了。