Question

我目前的项目正在为一位同事制作一份清单，因为我喜欢使所有内容过于复杂，所以我在运行宏时让他在完成工作时进行检查。当他完成工作时，工作描述将从标题样式更改为正常，然后更新ToC。所有这一切都有效，但我有时会选择内容控件。我通常可以一次或两次检查并取消选中它，没有问题，但最终光标由于某种原因没有移出复选框，因此后续点击不会触发OnEnter。

Private Sub Document_ContentControlOnEnter(ByVal CCtrl As ContentControl)
With CCtrl
  If .Type = wdContentControlCheckBox Then
    If .Checked = True Then
      .Range.Paragraphs.First.Style = wdStyleNormal
      ActiveDocument.TablesOfContents(1).Update
      Selection.Collapse direction:=wdCollapseEnd
    Else
      .Range.Paragraphs.First.Style = wdStyleHeading2
      ActiveDocument.TablesOfContents(1).Update
      Selection.MoveRight 1
    End If
  End If
End With
End Sub

有没有办法强制单词取消选择内容控件并将光标移动到同一行的某个位置？

我尝试了Selection.MoveDown 1，Selection.Collapse direction:=wdCollapseEnd和Selection.MoveEnd，但都没有效果。

Answer 1

您可以利用以下事实：通过内容控制的范围，可以访问包含它的对象。例如，您可以＆＃34;向上钻取＆＃34;到内容控件所在的段落：

CCtrl.Range.Paragraphs(1).Range.Characters.Last.Select

这也可以是段落中的任何字符。以下（在我的测试中）将选择放在内容控件之后：

CCtrl.Range.Paragraphs(1).Range.Characters(4).Select

纳入您的代码：

Private Sub Document_ContentControlOnEnter(ByVal CCtrl As ContentControl)
  With CCtrl
    If .Type = wdContentControlCheckBox Then
      If .Checked = True Then
        .Range.Paragraphs.First.Style = wdStyleNormal
        ActiveDocument.TablesOfContents(1).Update
        Selection.Collapse direction:=wdCollapseEnd
      Else
        .Range.Paragraphs.First.Style = wdStyleHeading2
        ActiveDocument.TablesOfContents(1).Update
        Selection.MoveRight 1
      End If

      'Select the last character in the paragraph (the paragraph mark)
      CCtrl.Range.Paragraphs(1).Range.Characters.Last.Select
      'Remove the selection, so the cursor blinks at the end of the paragraph
      Selection.Collapse

    End If
  End With
End Sub

Word宏取消宏

1 个答案: