如何使用VBA重新保护Word Doc的一部分

Question

我有一个我在Word中构建的自定义模板。

我在某些可填写字段中使用了内容控件，并使用“限制编辑” - “没有更改”和异常（内容控件）来保护它。

用户填写内容控制信息后，单击“重置”按钮重新开始。与此按钮关联的代码如下。 问题是：如何使用我实施的原始保护参数重新保护文档？ 谢谢您的帮助！ JP

Private Sub CommandButton21_Click()

    ActiveDocument.Unprotect ("Word")
    Dim oCC As ContentControl

    x = 1

    For Each oCC In ActiveDocument.ContentControls

        Count = x

        If Count > 0 Then
            oCC.Range.Text = ""
        End If

        x = x + 1

    Next oCC

    ActiveDocument.Protect wdNoProtection, , "Word"

End Sub