Word VBA如何将焦点移动到Selection.Find.Execute查找目标位置

在Word中使用VBA时，无法将焦点移动到Selection.Find.Execute (findText)匹配到的查找目标位置。
现有场景：

• 文档内设置了功能按钮，用于将待办事项列表顶部条目移动到日志分区，对应bMoveToLog_Click过程执行后，焦点始终停留在待办事项列表位置
• 需新增按钮，点击后将焦点移动到标题「MYLOG」下方的日志区域，方便填写工时表

现有代码 #

移动待办条目到日志的原有代码：

Private Sub bMoveToLog_Click()
    Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute
    findText = "TODO"
    Selection.Find.Execute (findText)
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Cut
    findText = "MYLOG"
    Selection.Find.Execute (findText)
    Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdMove
    Selection.InsertDateTime
    Selection.InsertBefore ("   ")
    Selection.Paste
    Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute
End Sub

未生效的跳转日志按钮代码：

Private Sub bViewLog_Click()
    findText = "MYLOG"
    myRange = Selection.Find.Execute(findText)
    myRange.Select '*** 此处代码不生效，无法完成焦点跳转
End Sub

' 各类测试过的方案
'Selection.MoveDown Unit:=wdParagraph, Count:=2
'Selection.GoToEditableRange wdEditorCurrent
'myRange.Select
'Selection.GoTo what:=wdGoToPage, which:=wdGoToAbsolute
'Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdMove
'ActiveSheet.Range("D5").Select
' 硬编码跳转到第6页可生效，但无法适配文档长度变化
'Selection.GoTo What:=wdGoToPage, Count:=6

注意：ActiveSheet是Excel VBA的专属对象，Word对象模型中不存在该对象，对应代码调用会直接报错。

核心错误：Selection.Find.Execute方法的返回值是布尔类型，匹配成功返回True、匹配失败返回False，并非匹配到的内容Range对象。将布尔值赋值给变量后调用Select方法，自然无法完成焦点定位。

提供两种可直接运行的实现方案：

方案1：基于Selection直接查找（写法最简） #

查找前清空原有查找格式避免干扰，查找成功后Selection会自动定位到匹配位置，无需额外赋值：

Private Sub bViewLog_Click()
    Dim findText As String
    findText = "MYLOG"
    ' 清空历史查找格式配置
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = findText
        .Forward = True
        .Wrap = wdFindStop ' 查找到文档末尾即停止，避免循环查找
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute = True Then
        ' 定位到MYLOG标题下方2段的日志填写区域
        Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdMove
    Else
        MsgBox "未找到MYLOG标题，请检查文档内容"
    End If
End Sub

方案2：基于Range对象查找（稳定性更高） #

如果不希望查找过程意外改变当前选中状态，可使用Range对象遍历文档查找，匹配成功后再主动选中Range完成焦点跳转：

Private Sub bViewLog_Click()
    Dim findText As String
    Dim myRange As Range
    findText = "MYLOG"
    Set myRange = ActiveDocument.Content ' 指定查找范围为整个文档主内容
    myRange.Find.ClearFormatting
    With myRange.Find
        .Text = findText
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    If myRange.Find.Execute = True Then
        ' 将Range移动到MYLOG下方2段的日志区域
        myRange.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdMove
        myRange.Select ' 选中目标Range，焦点自动跳转
    Else
        MsgBox "未找到MYLOG标题，请检查文档内容"
    End If
End Sub

额外优化提示 #

原有bMoveToLog_Click过程最后一行Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute未指定Count参数，默认会跳回当前页开头，这就是移动完待办项后焦点停留在TODO区域的原因，删除该行即可让焦点停留在刚粘贴的日志位置。

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