word vba查找并选中某个字

可以使用Word VBA中的`Find`方法来查找并选中某个字。下面是一个示例代码，用于在Word文档中查找并选中第一次出现的“Hello”字样：

Sub FindAndSelect()
    Dim myRange As Range
    Set myRange = ActiveDocument.Content
    With myRange.Find
        .Text = "Hello"
        .Execute
    End With
    If myRange.Find.Found = True Then
        myRange.Select
    End If
End Sub

在这个示例代码中，我们首先定义了一个`Range`对象`myRange`，并将其设置为当前文档的全部内容。然后使用`Find`方法来查找“Hello”字样，如果找到了，则选中该字。注意，我们使用`.Found`属性来检查`Find`方法是否找到了匹配项。