Word VBA实现非连续选中全部目标文本的问题求助

要实现同时选中所有与当前选中文本一致的实例（类似Ctrl+点击的多选区效果），你需要修改代码中选区的选中逻辑——原代码每次调用foundRange.Select都会替换当前选区，导致最终仅保留最后一个匹配项。

修改后的完整代码 #

Sub SelectAllMatchingText()
    Dim searchText As String
    searchText = Trim(Selection.Text) ' 清除选中文本前后的空白，避免误匹配

    If searchText <> "" Then
        Dim foundRange As Range
        Set foundRange = ActiveDocument.Range

        With foundRange.Find
            .ClearFormatting
            .Text = searchText
            .Forward = True
            .Wrap = wdFindStop
            .MatchWholeWord = True
            .MatchCase = False
            .Execute

            ' 先选中第一个匹配项，再逐个添加后续匹配项到选区
            If .Found Then
                foundRange.Select
                .Execute
                Do While .Found
                    foundRange.Select wdAdd ' 使用wdAdd参数将当前范围添加到已有选区
                    .Execute
                Loop
            End If
        End With
    End If
End Sub

关键修改说明 #

• 清除选中文本空白：用Trim(Selection.Text)去除选中文本前后的空格，避免因选中操作附带的空白字符导致搜索不精准
• 多选区累加逻辑：调用foundRange.Select wdAdd时，wdAdd参数会将当前找到的文本范围添加到已选中的选区中，而非替换原有选区，完美实现类似Ctrl+点击的多选效果
• 空值判断优化：增加了对.Found的初始判断，避免无匹配项时执行无效操作

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