Vba 在整个文档中搜索字符串并一次选择所有实例

我是VBA新手。我想在Word文档中搜索字符串“the”的所有匹配项，并一次选择所有匹配项

Sub FindThe()

With Selection.Find
    .ClearFormatting
    .Text = "the"
    .Execute Forward:=True
End With

End Sub

目前，我有这段代码，可以找到字符串，但我需要反复运行子例程。而且它不会一次选择所有事件

Sub FindThe()

With Selection.Find
    .ClearFormatting
    .Text = "the"
    .Execute Forward:=True
End With

End Sub

---

您所要求的是不可能的，无论是在VBA中还是在UI中。@Timothyrylat Word已经支持很多年了，至少从2003年开始。可能早于此，但我手头上没有更早的版本。@GSerg-这不是被问到的问题。虽然您可以手动构造一个非连续的选择AFAIK，但您无法找到一个可以同时选择所有出现的对象。@Timothyrylat，通过代码，您可以。对于该界面，在“高级查找”对话框中有一个勾号可以执行此操作。@GSerg-您链接到的代码不会选择匹配项。我很清楚，您可以调用

。在循环中执行

并处理结果，只需使用

查找

查看我的所有答案即可。但这不是问题所要求的。请求同时选择所有匹配项。即使使用“高级查找”对话框，这也是不可能的。