我太懂你这个困扰了！Word VBA的Find/Replace和Excel的逻辑确实不一样，稍不注意就会要么范围失控、要么替换不全。你现在的问题核心是没有正确限制查找替换的边界，而且依赖Selection会导致范围判断出错。

问题原因拆解 #

• 当你用Selection.Find并设置.Wrap = wdFindContinue时，wdReplaceAll会直接忽略当前选中的范围，遍历整个文档——这就是为什么全文档的逗号都被替换了。
• 而用wdReplaceOne的话，只会处理当前范围内的第一个匹配项，自然只能改第一个单元格里的首个逗号。

解决方案：直接操作Range对象，精准锁死范围 #

不用依赖Selection，直接对你定义的PcentCells这个Range对象执行查找替换，同时把.Wrap设为wdFindStop，这样查找就绝对不会超出你指定的单元格范围。

修改后的完整代码如下：

Sub Replace_Percent_Separator()
'Correct percent separator in row 6, table 2
Dim PcentCells As Range
Dim Path As String, file As String
Path = "C:\xxx\Word\"
file = Dir(Path & "*.docx")
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Do While file <> ""
    Documents.Open Filename:=Path & file
    With ActiveDocument
        ' 定义要处理的单元格范围：第2个表格第6行第2到10列
        Set PcentCells = .Range(Start:=.Tables(2).Cell(6, 2).Range.Start, _
            End:=.Tables(2).Cell(6, 10).Range.End)
        
        ' 直接对Range对象执行查找替换，不需要Select
        With PcentCells.Find
            .Text = ","
            .Replacement.Text = "."
            .Forward = True
            .Wrap = wdFindStop ' 关键：只在当前Range内查找，超出就停止
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll ' 现在只会替换指定范围内的所有匹配项
        End With
    End With
    ActiveDocument.Save
    ActiveDocument.Close
    file = Dir()
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

关键修改点说明 #

1. 去掉PcentCells.Select：直接操作Range对象比用Selection更可靠，能避免Selection意外改变范围的问题。
2. 替换With Selection.Find为With PcentCells.Find：让查找替换逻辑完全绑定到你指定的单元格范围。
3. 设置.Wrap = wdFindStop：这是核心！告诉Word只在当前Range内查找，一旦超出范围就停止，绝对不会跑到文档其他区域。

这样修改后，就能实现类似Excel中Selection.Replace的效果——精准替换你指定的表格单元格范围内的所有逗号为小数点，既不会影响文档其他部分，也不会漏替换范围内的任何匹配项。

内容的提问来源于stack exchange，提问作者cdfj