Or another way

Sub Macro1()
Dim oRng As Range
Dim oFf As FormField
Dim bProtected As Boolean
    'Unprotect the file
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        bProtected = True
        ActiveDocument.Unprotect Password:=""
    End If
    Set oRng = ActiveDocument.Tables(2).Cell(2, 2).Range
    oRng.End = oRng.End - 1
    If oRng.FormFields.Count = 1 Then
        oRng.Collapse 0
        oRng.Text = " Active "
        oRng.Collapse 0
        oRng.FormFields.Add oRng, wdFieldFormCheckBox
    End If
    'Reprotect the document.
    If bProtected = True Then
        ActiveDocument.Protect _
                Type:=wdAllowOnlyFormFields, _
                NoReset:=True, _
                Password:=""
    End If
    Set oRng = Nothing
    Set oFf = Nothing
End Sub