动态内容控件应用（一）
例程目的：

在一个表格中，当选择"None"前的CheckBox后，表格中的其他CheckBox会消失（以防错选）。当取消选择后CheckBox会重新出现。如图：

说明：此前必须将"None"前CheckBox的Title设定为"None"。

Option ExplicitPrivate Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)    Dim r, c As Integer    Dim Cel As Word.range    Dim t As String        If ContentControl.Title = "None" And ContentControl.Checked Then        For r = 1 To ActiveDocument.Tables(1).Rows.Count            For c = 1 To ActiveDocument.Tables(1).Columns.Count                Set Cel = ActiveDocument.Tables(1).Cell(r, c).range                If Cel.ContentControls(1).Title <> "None" Then                    Cel.ContentControls(1).LockContentControl = False                    Cel.ContentControls(1).Delete (True)                End If            Next        Next    ElseIf ContentControl.Title = "None" And Not ContentControl.Checked Then        For r = 1 To ActiveDocument.Tables(1).Rows.Count            For c = 1 To ActiveDocument.Tables(1).Columns.Count                Set Cel = ActiveDocument.Tables(1).Cell(r, c).range                t = Replace(Cel.Text, Chr(13), "")                If Cel.ContentControls.Count = 0 Then                    Cel.Select                    Application.Selection.range.ContentControls.Add wdContentControlCheckBox                    Application.Selection.MoveRight Unit:=wdCharacter, Count:=2                    Application.Selection.range.Text = t                End If            Next        Next    End IfEnd Sub