Sub UnlockCControls()
Dim oStory As Range
Dim oCC As ContentControl
    For Each oStory In ActiveDocument.StoryRanges
        For Each oCC In oStory.ContentControls
            oCC.LockContentControl = False
        Next oCC
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For Each oCC In oStory.ContentControls
                    oCC.LockContentControl = False
                Next oCC
            Wend
        End If
    Next oStory
lbl_Exit:
    Set oStory = Nothing
    Set oCC = Nothing
    Exit Sub
End Sub