如何在Word VBA中替换独立的全大写单词？

• 问题核心：现有代码会替换包含目标词的其他单词，且不区分大小写，无法精准匹配独立的全大写单词
• 修正方案：调整两个关键参数
  1. 将.MatchWholeWord设为True：确保只匹配独立单词，不替换单词内的子串
  2. 将.MatchCase设为True：确保只匹配全大写的"ONE"，避免误替换小写/混合大小写的"one"或"One"

修改后的完整VBA代码：

'ONE 替换为 UNO（仅匹配独立全大写单词）
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "ONE"
    .Replacement.Text = "UNO"
    .Forward = False
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = True ' 开启大小写匹配，仅匹配全大写的ONE
    .MatchWholeWord = True ' 开启整词匹配，仅替换独立单词
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

参数说明 #

• .MatchWholeWord = True：Word会识别单词边界（如空格、标点前后的独立单词），不会替换像"PHONE"里的"ONE"子串
• .MatchCase = True：严格匹配大小写，只会替换全大写的"ONE"，不会影响小写"one"或首字母大写"One"

内容的提问来源于stack exchange，提问作者HR-32091-24