你碰到的其实是Word VBA里很常见的焦点冲突问题——当UserForm显示时，系统焦点其实在窗体上，Word文档处于后台状态，导致宏默认会在文档开头或你最后点击过的位置执行，而不是你设定的书签处。下面给你一套实用的解决步骤和代码示例：

第一步：确认书签的正确性 #

先确保目标位置（复选框域代码所在处）的书签设置没问题：

• 按Alt+F9显示文档的域代码，选中你要操作的复选框域代码
• 点击Word菜单栏的「插入」→「书签」，给它起个清晰的名字（比如CheckboxTarget），点击「添加」完成设置
• 可以按Ctrl+Shift+G打开书签管理器，确认这个书签存在且能精准定位到目标复选框位置

第二步：修改UserForm按钮的点击事件代码 #

在你的UserForm命令按钮的点击事件里，先把焦点切回Word文档，再定位到书签，最后执行宏操作。示例代码如下：

Private Sub CommandButton1_Click()
    ' 暂时隐藏窗体，避免焦点干扰（可选但推荐）
    Me.Hide
    
    ' 强制激活Word文档窗口，确保焦点回到文档
    ActiveWindow.Activate
    
    ' 检查目标书签是否存在，不存在就提示并返回
    If Not ActiveDocument.Bookmarks.Exists("CheckboxTarget") Then
        MsgBox "找不到目标书签「CheckboxTarget」，请检查文档中的书签设置！", vbExclamation
        Me.Show
        Exit Sub
    End If
    
    ' 定位到书签位置并选中
    ActiveDocument.Bookmarks("CheckboxTarget").Select
    
    ' --------------------------
    ' 这里写你要执行的宏操作，比如处理复选框域
    ' 示例：切换复选框的勾选状态
    Dim targetField As Field
    For Each targetField In Selection.Fields
        ' 只处理复选框类型的域
        If targetField.Type = wdFieldFormCheckBox Then
            ' 切换状态：当前是1（勾选）就设为0（未勾选），反之亦然
            targetField.Result.Text = IIf(targetField.Result.Text = "1", "0", "1")
            targetField.Update ' 更新域的显示状态
            Exit For ' 找到目标复选框就退出循环，按需调整
        End If
    Next targetField
    ' --------------------------
    
    ' 可选：重新显示UserForm
    Me.Show
End Sub

关键要点说明 #

• 焦点切换：ActiveWindow.Activate是核心！因为UserForm显示时，系统焦点在窗体上，Word文档处于后台，宏会默认使用最后一次有焦点的文档位置，激活窗口后才能让书签定位生效。
• 书签定位：Bookmarks("XXX").Select会把光标精准定位到书签位置，后续基于Selection的操作就会围绕这个位置执行，不会乱跑。
• 域代码处理：要针对wdFieldFormCheckBox类型的域操作，避免误改其他域；操作后记得用Update刷新显示状态。

常见排查点 #

• 如果书签定位还是失效，检查书签是否被删除或移动：打开书签管理器（Ctrl+Shift+G），选中目标书签点击「定位」，看是否跳转到正确的复选框位置。
• 哪怕你用了UserForm.Show vbModal（模态窗体）也没关系，只要在执行宏前加上ActiveWindow.Activate就能切回文档焦点。

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